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JA nyone and 


meveryone who 
routinely works with 
equations needs 
Eureka: The Solver 


It solves the most com- 
plex equations in seconds. 
Whether you're a scientist, 
engineer, financial analyst, 
student, teacher, or some 
other professional, you 
need Eureka: The Solver! 


Any problem that can be 
expressed as a linear or non-linear 
equation can be solved with Eureka. 
Algebra, Trigonometry and Calculus 
problems are a snap. 

Eureka: The Solver also handles 
maximization and minimization 
problems, does plot functions, 
generates reports, and saves you 
an incredible amount of time. 


X+exp(X) = 10 
solved instantly instead 
of eventually! 

Imagine you have to “solve 
for X,” where X + exp(X) = 10, and 
you don’t have Eureka: The Solver. 
What you do have is a problem, 
because it’s going to take a lot of 
time guessing at “xX.” Maybe your 
guesses get closer and closer to the 
right answer, but it’s also getting 
closer and closer to midnight and 
you're doing it the hard way. 

With Eureka: The Solver, there's 
no guessing, no dancing in the dark— 
you get the right answer, right 
now. (PS: X = 2.0705799, and 
Eureka solved that one in .4 
of a second!) 
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How to use Eureka: 
The Solver 


It’s easy. 


Enter your equation into 

the full-screen editor 

Select the “Solve” command 
Look at the answer 

You’re done 


You can then tell Eureka to 


Evaluate your solution 

Plot a graph 

Generate a report, then send the 
output to your printer, disk file 
or screen 

Or all of the above 


A full-screen editor 
Pull-down menus 
Context-sensitive Help 
On-screen calculator 


Automatic 8087 math 
co-processor chip support 


Powerful financial functions 


Built-in and user-defined 
math and financial functions 


Ability to generate reports 
complete with plots and lists 


Polynomial finder 
Inequality solutions 


*Introductory price—good through July 1, 1987 









Eureka: The Solver includes _ 


Some of Eureka’s 
key features 
You can key in: 
A formula or formulas 
A series of equations—and 
solve for all variables 
Constraints (like X has to be 
<\or = 2) 
A function to plot 
Unit conversions 
Maximization and minimization 
problems 
Interest Rate/Present Value 
calculations 
Variables we call “What hap- 
pens?,” like “What happens if | 
change this variable to 21 and 
that variable to 27?” 


All this power for only 
$99.95! 


Equation-solving used to be a 
mainframe problem, but we've 
solved that problem. 

Eureka: The Solver is all you 
need—and it's yours for only 
$99.95! 

That kind of savings you can 
calculate with your fingers! 


System requirements 


IBM PC, AT, XT, Portable, 3270 or true compatibles. 
PC-DOS (MS-DOS) 2.0 and later. 384K. 















66 if you're at all interested in ! It’s the complete developer's 
artificial intelligence, databases, expert a oe Prolog toolbox and a oe addition to 
systems, or new ways of thinking about OOIDOX Turbo Prolog. You get a wide variety 
programming, by all means plunk down Our new Turbo Prolog Toolbox” of menus—pull-down, pop-up, line, 
your $100 and buy a copy of Turbo enhances Turbo Prolog—with more tree and box—so you can choose the 
Prolog. Bruce Webster, BYTE 9 J than 80 tools and over 8,000 lines of one that suits your application best. 

source code that can easily be You'll quickly and easily learn how to 
incorporated into your programs. It produce graphics; set up communica- 
includes about 40 example programs tions with remote devices; read 

that show you how to information from Reflex,° dBASE Ill° 


use and incorporate your Lotus 1-2-3° and Symphony® files; 
new tools. generate parsers and design user 


interfaces. All of this for only $99.95. 
New Turbo Prolog ss 
Toolbox features include: 





[4 Business graphic generation 
[4% Complete communications package 
™_ File transfers from Reflex, dBASE Ill, 

1-2-3, Symphony Only 
[™{ A unique parser generator 
[@ Sophisticated user-interface design $99.95! 
tools 


Turbo Prolog, the natural languayje 
of Artificial Intelligence, is the most 
popular Al package in the world with more 
than 100,000 users. It's the 5th-generation 
computer programming language that 
brings supercomputer power to your IBM System requirements 
PC and compatibles. You can join the Al fake Rote a XT, = or Se crests BSD IE 
: ; .0 or later. 384K. Turbo Pro oolbox requires Tu: 
ee ey ctor Gene Prolog 1.10 or higher. Dual-floppy dk drive + hard disk. 512K. 


programs and source code included. 


Turbo Pascal 


The power and high performance of 
Turbo Pascal is already in the hands of 
more than half-a-million people. The tech- 
nically superior Turbo Pascal is the de facto 
worldwide standard and the clear leader. Toolbox 
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ew! Turbo Pascal 


Numerical Methods As well as a free demo FFT pro- 
gram, you also get Least Squares 


The Turbo Pascal family includes: Fit in 5 different forms: 


Turbo Pascal® 3.0 | J 7 |. Power , 
Turbo Tutor® 2.0 : ee 2. Exponential 


L . 
Turbo Database Toolbox® Hs Tt we 3. Logarithm 
Turbo Editor Toolbox® / 


5\ — 4. 5-term Fourier 
Turbo Graphix Toolbox® Ww 2 5. 5-term Polynomial 
Turbo GameWorks® 


Turbo Pascal Numerical Methods 
Toolbox” 






They‘re all ready to compile 
and run. 


All this for only $99.95 ! 


What our new Numerical Methods System requirements 





Toolbox will do for you now: IBM PC, XT, AT or true compatibles. PC- 
| DOS (MS-DOS) 2.0 or later. Turbo Pascal 
Find solutions 2.0 or later. Graphics module requires 
; graphics monitor with IBM CGA, IBM 
fo equa tions EGA, or Hercules compatible adapter 
| Inter polations ee card, and requires Turbo Graphix 
4 Calculus: numerical derivatives Toolbox. 8087 or 80287 numeric co- 
di | processor not required, but recom- 
an integr als mended for optimal performance. 256K. 
. _ ™ Differential equations _ —— oe 
Turbo Pascal, ‘the worldwide standard in cdl Matrix operations: inversions, Includes 8087 & BCD features for 16-bit 
high-speed compilers, and family. determinants and eigenvalues ive SIS SE CEI -Ee eee SF ete 
: ; version minimum memory: 48K; 8087 
™ Least squares approximations and BCD features not available. 128K. 


& & The language deal of the century. Fourier transforms 


Jeff Duntemann, PC Magazine a9 
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Turbo Basic 





Wntroducing Turbo 
& Basic, the high- 
speed BASIC you’d 
expect from 
Borland! 


It’s the BASIC compiler you’ve 
been waiting for. And it’s so fast 
that you'll never have to wait 
again. 

Turbo Basic is a complete devel- 
opment environment; it includes a 
lightning-fast compiler, an inter- 
active editor, and a trace debug- 
ging system. 

Because Turbo Basic is compat- 
ible with BASICA, chances are that 
you already know how to use 
Turbo Basic. 





With Turbo Basic your 
only speed is “Full 
Speed Ahead’! 


You probably already know us 
for both Turbo Pascal® and Turbo 
Prolog.” Well, we've done it again! 

We created Turbo Basic, 
because BASIC doesn’t have to be 
slow. 

In fact, building fast compilers is 
a Borland specialty; both our Turbo 
Pascal and our Turbo Prolog out- 
perform all their rivals by factors, 
and with Turbo Basic, we’re proud 
to introduce the first high-speed 
BASIC compiler for the IBM®°PC. If 
BASIC taught you how to weak, 
Turbo Basic will teach you how 
to run! 





“The Critics’ Choice 


£64 Borland has succeeded in 
stretching the language without 
weighing us down with unneces- 
| sary details . . . Turbo Basic is the 
| answer to my wish for a simple yet | 
blindingly fast recreational utility | 
language . .. The one language 
you can’t forget how to use, Turbo 
Basic is a computer language for | 
the missus, the masters, the | 
| masses, and me. 
Steve Gibson, InfoWorld | 





Borland’s Turbo Basic has advan- 

tages over the Microsoft product, | 
including support of the high- 
| speed 8087 math chip. | 
| John C. Dvorak JJ | 
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Turbo Basic ends the 
basic confusion 


There’s now one standard: 
Turbo Basic. 

It's fast, BASICA-compatible, and 
because Turbo Basic is a Borland 
product, the price is right, the 
quality is there, and the power is 
at your fingertips. You see, Turbo 
Basic’s part of the fast-growing 
Borland family of programming 
languages—we call it the “Turbo 
Family.” Hundreds of thousands of 
users are already using Borland’s 
languages, So you can’t go wrong. 
So join a whole new generation of 
smart IBM PC users—get your 
copy of Turbo Basic today. You get 
an easy-to-read 300+ page 
manual, two disks, and a free 
MicroCalc spreadsheet—and an 
instant start in the fast new world 
of Turbo Basic. All of this for only 
$99.95—Order your copy of Turbo 
Basic today! 


Free sprencchewt inchedecl, 
complete with source code! 


| Yes, we've included MicroCalc, our sample 
| spreadsheet, complete with source code, 


| so that you can get started right away with | 
| a “real program.” You can compile and run | 


| it “as is,” or modify it. 





A technical look at 

Turbo Basic 

Full recursion supported 

Standard IEEE floating-point 

format 

Floating-point support, with full 

8087 (math co-processor) 

integration. Software emulation if 

no 8087 present 


Program size limited only by 
available memory (no 64K 
limitation) 

EGA and CGA support 


Access to local, static, and global 
variables 


Full integration of the compiler, 
editor, and executable program, 
with separate windows for 
editing, messages, tracing, and 
execution 

Compile, run-time, and |/O errors 
place you in the source code 
where error occurred 


New long integer (32-bit) data 
type 

Full 80-bit precision 

Pull-down menus 


Full window management 





System requirements 


IBM PC, XT, AT and true compatibles, PC-DOS (MS- 
DOS) 2.0 or later. One floppy drive, 256K. 















urbo C: The 

fastest, most 
efficient and easy- 
to-use C compiler at 
any price 

Compilation speed is more than 

7000 lines a minute, which makes 
anything less than Turbo C an 
exercise in slow motion. Expect 


what only Borland delivers: Quality, 
Speed, Power and Price. 


Turbo C: The C compiler 
for amateurs and 
professionals 

If you're just beginning and 
you've “kinda wanted to learn C,” 
now's your chance to do it the easy 
way. Like Turbo Pascal, Turbo C’s 
got everything to get you going. 


If you're already programming 
in C, switching to Turbo C will 
considerably increase your 
productivity and help make your 
programs both smaller and faster. 
Actually, writing in Turbo C is a 
highly productive and effective 
method—and we speak from exper- 
ience. Eureka: The Solver and our 
new generation of software have 
been developed using Turbo C. 


Sieve benchmark (25 iterations) 


Turbo C Microsoft® C 
Compile time 3.89 16.37 
Compile and link time 9.94 29.06 
Execution time 5.77 9.51 
Object code size 274 297 
Price $99.95 $450.00 


Turbo C 


— 


Technical Specifications 


| 
| Compiler: One-pass compiler 


Turbo C: a complete 
interactive development 
environment 


] Like Turbo 
| Pascal and 


generating linkable object modules 
and inline assembler. Included is 
Borland's high performance “Turbo 
Linker.” The object module is com- 
patible with the PC-DOS linker. Sup- 
ports tiny, small, compact, medium, 
large, and huge memory model 
libraries. Can mix models with near 
and far pointers. Includes floating 


| Turbo C comes 
with an interactive editor that will 


show you syntax errors right in your ! rc 
source code. Developing, debug- | point emulator (utilizes 8087/80287 
; | if installed). 


ing, and running a Turbo C | 
ging g | Interactive Editor: The system 


| 
program iS a shap. | includes a powerful, interactive full- 
| screen text editor. If the compiler 
| detects an error, the editor auto- 
| matically positions the cursor 
appropriately in the source code. 


Development Environment: A 

| powerful “Make” is included so 
that managing Turbo C program 
development is highly efficient. 
Also includes pull-down menus 
and windows. 


Links with relocatable object 
modules created using Borland’s 
Turbo Prolog into a single program. 


Turbo C: The C compiler 
everybody's been 
waiting for. Everybody 
but the competition 


Borland’s “Quality, Speed, Power 
and Price” commitment isn’t idle 
corporate chatter. The $99.95 price 
tag on Turbo C isn’t a “typo,” it’s 
real. So if you'd like.to learn C ina 
hurry, pick up the phone. If you’re 








| 
| 
| 
| 


ered 


already using C, switch to Turbo C ANSI C compatible. 
and see the difference for yourself. Start-up routine source code 
included. 


Both command line and integrated 
environment versions included. 


ere 


*Introductory price—good through July 1, 1987 


System requirements 


IBM PC, XT, AT and true compatibles. PC-DOS (MS- 
DOS) 2.0 or later. One floppy drive. 320K. 















Lattice C 
13.90 
27.79 
13.79 
301 


$500.00 t. most 
Mil Casati 


ata a 
effitt Pr 


Benchmark run on a 6 Mhz IBM AT using Turbo C version 1.0 and the Turbo 
Linker version 1.0; Microsoft C version 4.0 and the MS overlay linker version 
3.51; Lattice C version 3.1 and the MS object linker version 3.05. 
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All Borland products are trademarks or registered trademarks of Borland International, Inc. or 
Borland /Analytica, Inc. Other brand and product names are trademarks or registered trademarks 
of their respective holders. 


Copyright 1987 Borland International Bi-1103A 
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- NEW!FROM | FROM 
BLAISE 
_ COMPUTING | 


Today’s programmers 
need more than yes- 
terday’s tools. Re- 
quirements such as 
removable windows 
and ‘‘sidekickable”’ 
pop-up utilities 
are changing 
the face of pro- 
gram design. 
You need to fil- 
ter interrupts so 
that other resi- 
dent programs 
still work. You 
need the ability to switch between 
multiple display pages and monitors. 
Today’s technical demands are almost 
endless, but C TOOLS PLUS gives you 
what you need. 








SOLID LIBRARY SUPPORT 


Blaise Computing offers you solid li- 
brary support that can meet all your 
demands and more. C TOOLS PLUS 
embodies the full spectrum of general- 
purpose utility functions that are criti- 
cal to today’s applications. 


Here’s just part of the PLUS 
inC TOOLS PLUS: 


®@ C TOOLS and C TOOLS 2 compatibil- 
ity —two packages that receive rave 


reviews for quality, organization, usa- 
bility and documentation. 


@ FULL SOURCE CODE 





C Tools Plus’ 


For The Programmer 


Whose Alphabet 


Begins & Ends 
With “C” 


@ WINDOWS that are stackable, re- 
movable, that support word wrap and 
that can accept user input. 

@ INTERRUPT SERVICE ROUTINE 
support for truly flexible, robust and 
polite resident applications. 

® MULTIPLE monitor and display 
support, including EGA 43-line mode. 

@ FAST DIRECT VIDEO ACCESS for 
efficiency that will not constrain good 
program design. 


@ DOCUMENTATION, TECHNICAL 


Also Available Are: 

C VIEW MANAGER — 
A kit for building data 
entry screens and menus. 
Begin by designing on- 
screen what the operator 
will see; call upon our 
library functions from 
your program to display 
the screens and retrieve 
the data. Just $275, in- 
cluding all library 
source code. 

C ASYNCH MAN- 
AGER — provides 
the crucial core 
of hardware in- 
terrupt support 
needed to build 
applications that 
communicate. It 
also includes the “KMODEM” file-transfer 
protocol and support for Hayes-compatible 
modems. All source code is included for $175. 
C TOOLS & C TOOLS 2— an indispensable 
combination still available at a low price of 
$175, including all source code. See re- 

4m 
N 


view in PC Tech Journal, 6/85. 
BLAISE COMPUTING INC. 
2560 Ninth Street, Suite 316 Berkeley, CA 94710 (415) 540-5441 


ORDER TOLL-FREE 800-227-8087! 





--- for 

SUPPORT and attention ae dis $7 gaestiC 
. ert s en, a jose AM dome 
to detail that have distin- © g sent we! the PLU a ent ae ta A 
YES, se CA resi hippin 

guished Blaise Computing C TOOLS pre Far Federal EXPFESSS ip : eee 
products over the years. : orders add $10 Phone: (—— 
C TOOLS PLUS supports : Name: fo 
the Microsoft (andIBM)  \ - ning Address: State: ——— ae 
3.00 and Lattice 3.00 C ; vas Exp-Date—— oe 
compilers and is just , City: eee ee 
$175.00. 1 yisAorMC#: Laos 
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Efficient >| ALGORITHMS: An Eificient Algorithm for Large 
Priority Queues 
ueUe control by ies v Brown 
By deferring decisions about lower-level priorities, this 
algorithm is able to assign the top priority more efficiently. 
COMMUNICATIONS: Two-Bit Analog-to-Digital 22 
Conversion 
Mathematical by John Musselman 
hasis for a How to use hardware interrupts and a demonstration of 
techniques common in real-time programming 
space-saving trick)>| aucorirHMs: The XOR Chain 28 
by David E. Cortesi 
The Swapped-Out Intern returns with a technique that 
exploits a curious property of doubly linked lists. 
TSR serial driver >| comMunicaTIONs: An Extended COM Port Driver a2 
by Thomas A. Zimniewicz 
Excom is a terminate-and-stay-resident program that gives 
the IBM PC interrupt-driven buffered input with flow- 
control selection and support for higher baud rates. 








Handli ng larg e Ed LANGUAGES: Dynamic Memory Overlays for Turbo 50 
I 
o Pascal — 
Turb by Steve McMahon 
pros rams Steve shows how to get around the 64K limit on executable 






code imposed by Turbo Pascal without resorting to slow 
disk overlays. 
Unix a COMMUNICATIONS: A Unix BBS Using Shell Scripts 54 


telecommunications | PY J2” & Harrington | 
Jan shows just how she wrote a bulletin board system 
software 


using Unix V Bourne shell scripts and XMODEM. 


Queue control COLUMNS 


inc > 




































C CHEST 
by Allen Holub 
Allen delves into the subject of priority queues and, in 
For the Flotsam and Jetsam, discusses standard #include files. 
programmer’s p>| 16-BIT SOFTWARE TOOLBOX 112 
by Ray Duncan 
bookshelf Ray discusses programming books. He also offers a poor 
man’s MAKE utility and an MS-DOS programming tip. 
Object-oriented p> ARTIFICIAL INTELLIGENCE 116 
° by Ernest R. Tello 
Fe aS stot presents some examples of object-oriented 
programming using SCOOPS, an extension of PC Scheme, 
“the Turbo Pascal of the PC LISP family.” 
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EDITORIAL 






by Michael Swaine A comparison of user-defined 
the Volvo RUNNING LIGHT 8 | functions in four BASICs 
by Levi Thomas OF INTEREST: 132 
ARCHIVES S$ | Products for programmers 
LETTERS 10 ADVERTISER INDEX: 113 
J e e 
What's r ight with by you Where to find those ads 
high-level >| viewpoint 14 
lan guages 2 by Brian R. Anderson 


SWAINE’S FLAMES 136 
by Michael Swaine 


Dr. Dobb’s Journal, June 1987 











VOLUME 12, ISSUE 6 


About the Cover 
Handling the traffic flow of multi- 
tasking requires an efficient 
queueing algorithm such as the 
one that has just given the green 
light to a task in this month's cov- 
er illustration. 





This Issue 
If this issue looks packed, it is. 
Three articles deal with commu- 
nications techniques. Robert Jay 
Brown and Allen Holub discuss 
algorithms for priority queues. 
Dave Cortesi, a longtime DDJ col- 
umnist, contributes a rare bit on 
doubly linked lists. Steve McMa- 
hon gives aid and comfort to se- 
rious Turbo Pascal program- 
mers; Ernie Tello and Allen 
Holub give tips to new PC 
Scheme and C programmers, re- 
spectively; and Forth, assembly- 
language, Modula-2, and BASIC 
programmers will all find some- 
thing of interest in this issue. 






Next Issue 
So you really did it? You sold the 
Volvo and bought a 386 machine 
and now youre going to develop 
software for it? Only you don't 
want to wait for Microsoft to de- 
liver OS/2 sometime next year? 
We hope you saved $2.95 for our 
July issue, in which we will dis- 
cuss development tools for the 
386 that are available today. 














UnleashThe Most Powerful 
Development'lools _ 





OnThe Planet DOS. 


UNIFY DBMS/DOS. The UNIX World Leader 
Brings A New DimensionTo DOS Application Development. 


What happens as the DOS world expands? As a 
new generation of hardware takes over? As networking 
becomes more important? The potential is enormous. 
But until now, the tools to achieve it have been limited. 

Now a leader from another world unleashes that 
potential: UNIFY® DBMS. The leading relational 
DBMS in the UNIX™ world. And now, the most 
advanced set of application development tools in the 
DOS world. 

With UNIFY DBMS, DOS developers have new 
power to build more sophisticated applications than ever 
before possible. 

The power to write high performance “C” 
programs that will access the data base, using 
Unify’s Direct Host Language Interface. 

The power of an industry standard 
query language— SQL. 

The power of unmatched speed in pro- 
duction applications. Only UNIFY DBMS is 
specifically engineered for transaction through- 
put. With unique performance features like 
PathFinder™ Architecture multiple access meth- 
ods, for the fastest possible data base access. 


The power of comprehensive pro- 
gram development and screen man- 
agement tools. Plus a state- 
of-the-art fourth generation ~ 
report-writer. so 

What’s more, with UNIFY ~ 
DBMS, the potential of networked 
applications becomes a reality. Unlike 
DBMS systems which were originally 
single-user (and which have a long stretch 
to accommodate more users), UNIFY DBMS 
iS a proven multi-user system. 

And because UNIFY DBMS/DOS is 
the best of two worlds, it offers you the most 
powerful benefit of all: DBMS applications that 
can grow as your needs grow. From single user 
DOS. To networked DOS. To multi-user UNIX. 
All without changing your applications. 


Call the Unify Information Hotline 
for our free booklet: The NewDOS World. 
(503) 635-7777 


UNIFY 


CORPORATION 


4000 Kruse Way Place 
Lake Oswego, OR 97034 


© 1986 Unify Corporation. UNIX™ is a trademark of AT&T Bell Laboratories. 
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Sarat Cai 
-w/inter-module S ciediny 

_ Native Code Generation 

Large Memory Model Support 


@ Most Powerful Runtime Debugger — 


H Comprehensive Module Library 
_ Maintainability _ 
Translator from Turbo and 
ANSI Pascal 


WIN A FREE TRIP TO 


Sivitgertand 








HOMELAND OF MODULA-2 
Return your Modula-2 Registration Card or 
a reasonable facsimile* postmarked between 
March 1, 1987 and May 31, 1987 to be included 
in a once-only drawing! 

Grand Prize: One week excursion for 2 in 
Zurich, Switzerland including a guided tour of 
ETH, the University where Modula-2 was 
created by Niklaus Wirth. European custom- 
ers may substitute a trip to Silicon Valley, 
California. 

Second and Third Prizes: LOGITECH C7 
Mouse or LOGITECH Bus Mouse with Paint 
& Draw software —a $219 value, absolutely 


free! 
*Write to Logitech, Inc. for a registration card 
facsimile. 






— 


APPRENTICE PACKAGE $99 

Everything you need to begin producing reliable 

maintainable Modula-2 code. Includes the Compiler 
with 8087 support, integrated Editor, Linker, and 


BCD Module. We're also including FREE our Turbo © 


Pascal to Modula-2 a 


WIZARDS? PACKAGE $199 


This package contains our Plus Compiler—for 
professional programmers or for those who just want 
the best. The Plus Compiler with Integrated Editor 
requires 512K and takes advantage of the larger _ 
memory to increase compilation speed by 50%. Our 
Turbo Pascal to Modula-2 Translator is also includ- 
ed at no extra — 


MAGIC C TOOLKIT $99 

We've put our most powerful development tools 
into one amazing Toolkit for use with either the 
Apprentice or Wizards packages. Highlighted by our 
Runtime Debugger, the finest debugging tool avail- 
able anywhere, the Toolkit also includes our Post 
Mortem Debugger, Disassembler, Cross Reference 
utility and Version which keeps track of different 
versions of one program. Our MAKE Utility figures 








- out module dependencies and automatically selects 


those affected by code changes to minimize recom- 
pilation and relinking. We also provide source code 
of our major library a for _ to customize — 
or just play with. _ 


WINDOW PACKAGE $49 
Now you can build true windowing into your 

Modula-2 code. Features virtual screens, color sup- 

port, overlapping windows and a variety of borders. 


ROM PACKAGE AND CROSS 
RUN TIME DEBUGGER $299 


For those who want to produce rommable code. 
You can even debug code running in ROM from 
your PC. 


Turbo Pascal is a registered trademark of Borland International. 
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_ Call for information aout our 


VAX/VMS version, Site License, University 2 
utor pricing. 


Discounts, Dealer & Distri 


To place an order call 
tollirce: 
7 


-800-231-7 7 
ls California: . 

- 800-552-8885 
YES! 





I want the spellbinding power 


of LOGITECH Modula-2! 
LC Apprentice Package $99 
CL Wizards’ Package $199 
UO Magic Toolkit $99 
LC) Window Package $49 
O ROM Pkg/Cross RTD $299 


Add $6.50 for shipping and handling. Calif. residents 
add applicable sales tax. Prices valid in U.S. only. 


Total Enclosed $ 
OC VISA O MasterCard 0 Check Enclosed 








Card Number Expiration Date 
Signature 

Name 

Address 

City State 





Phone 


B LOGITECH 


LOGITECH, Inc. 
805 Veterans Blvd. Redwood City, CA 94063 
Tel: 415-365-9852 
In Europe: 
LOGITECH SA, Switzerland 
Tel: 41-21-879656 ¢ Telex 458 217 Tech Ch 
In Italy: 
Tel: 39-2-215-5622 








FORUM 


EDITORIAL 


he summer of 

1987. Midyear. 
Time to take stock; time 
to assess what we've 
seen of 1987 and mull 
over what it all means. 
What can we say? That 
it was the spring of 
hype, the summer of 
virtuality? I think it’s a 
watershed summer, a 
good time to be a soft- : 
ware developer. . 

Microsoft, IBM, and Apple all 
claimed that we were entering a 
new generation of personal comput- 
ing. Both Apple and IBM announced 
significant new machines. Both Ap- 
ple and IBM committed to fast, smart 
new buses and more open architec- 
tures, which will create new chal- 
lenges and opportunities for hard- 
ware and software developers. 

Microsoft revealed plans for get- 
ting parts of its OS/2 for 80286 and 
80386 processors into developers’ 
hands this year. Ever since Gary Kil- 
dall put an operating system on an 
8080, the only arguably revolution- 
ary advance in personal computer 
operating systems has been the Mac- 
intosh system software. It might be a 
stretch to suggest that OS/2 could be 
the next, but when it really arrives it 
should prove fertile ground for soft- 
ware development. 

Both Unix and C took steps toward 
standardization in the first half of 
this year, and the crowded C compil- 
er market ripened toward some sort 
of mitosis. Both Unix and C presented 
new tools and new environments for 
development. Version management 
and CASE became more real for per- 
sonal computer-based development. 

If you're reading this in Tokyo, you 
already know that several Japanese 
computer Companies have taken a 
big step toward a viable Japanese- 
user-oriented personal computer in- 
dustry by standardizing on the TRON 
real-time operating nucleus. TRON 
should have a much greater impact 
on Japanese computer users. than 





the Fifth Generation 
Project, and it’s also go- 
ing to have a signifi- 
cant impact on soft- 
ware developers by 
providing an entirely 
new, coherent, Japa- 
nese-script-based pro- 
gramming platform. 

These new environ- 
ments and new tools 
speak of new opportu- 
nities for the software 
developer. But they speak in the am- 
bient din, and it’s easy to miss their 
message. 

If you're currently evaluating the 
software development opportunities 
presented by these recent advances, 
could I make some_ modest 
suggestions? 

Don't listen too closely to the mar- 
keters. Marketing experts are magi- 
cians; when it’s difficult to create val- 
ue, marketers can create need. They 
can convince people that there is 
something terribly wrong with them 
that only your product can cure. But 
it's sO easy to create real value with a 
piece of software that I’m just not 
sure that we need the digital deodor- 
ant. If the product is good, marketing 
it becomes a simpler matter. 

And I wouldn't listen too closely to 
users, heretical as that statement 
may be. Listening to users doesn’t 
generally contribute a lot to creating 
something new. User feedback is use- 
ful when you're tweaking existing 
products. Users may not know any- 
thing about software, but they know 
what they don’t like. 

Ultimately, I argue, the real break- 
throughs come from listening to the 
technology. That should be particu- 
larly true at a technological water- 
shed like this summer. 

Hock the Volvo, buy that 68020 or 
80386 machine, and start playing 
around. , 


Michael Swaine 
editor-in-chief 





Dr. Dobb's journal of 


Software Tools 


FOR FHE PROFESSIONAL PROGRAMMER 








Editorial 
Editor-in-Chief Michael Swaine 
Editor Tyler Sperry 
Managing Editor Vince Leone 
Assistant Editors Sara Noah Ruddy 
Levi Thomas 
Allen Holub 
Nick Turner 
Ray Duncan 
Michael Ham 
Bela Lubkin 
Namir Shammas 
Ernest R. Tello 
Copy Editor Rhoda Simmons 
Production 
Production Manager Bob Wynne 
Art Director Michael Hollister 
Assoc. Art Director Joe Sikoryak 
Technical Illustrator Frank Pollifrone 
Cover Artist Barron Storey 
Circulation 
Circulation Director Maureen Kaminski 
Newsstand Sales Mgr. Stephanie Ericson 
Book Marketing Mgr. Jane Sharninghouse 
Circulation Coordinator Kathleen Shay 
Administration 
Finance Director Kate Wheat 
Business Manager Betty Trickett 
Accounts Payable Supv. Mayda Lopez-Quintana 
Accts. Receivable Supv. Laura Di Lazzaro 
Advertising Director 
Ferris Ferdon (415) 366-3600 
Account Managers 
Lisa Boudreau (415) 366-3600 
Martha Brandt (415) 366-3600 
Gary George (404) 897-1923 
Michael Wiener (415) 366-3600 
Cynthia Zuck (718) 499-9333 
Promotions/Srves. Mgr. Anna Kittleson 
Advertising Coordinator Charles Shively 


M&T Publishing Inc. 
Chairman of the Board Otmar Weber 
C. F. von Quadt 
Laird Foshay 
Michael Swaine 









Technical Editor 
Consulting Editor 
Contributing Editors 




























Director 
President and Publisher 
Associate Publisher 








Dr. Dobb’s Journal of Software Tools (USPS 307690) 
is published monthly by M&T Publishing Inc., 501 Gal- 
veston Dr., Redwood City, CA 94063; (415) 366-3600. 
Second-class postage paid at Redwood City and at ad- 
ditional entry points. 








Article Submissions: Send manuscripts and disk 
(with article and listings) to the Editor. 


DDJ on CompuServe: Type GO DDJ 







Address Correction Requested: Postmaster: Send 
Form 3579 to Dr. Dobb's Journal, P.O. Box 27809, San 
Diego, CA 92128. ISSN 0888-3076 







Customer Service: For subscription problems call: 
outside CA (800) 321-3333; in CA (619) 485-9623 or 566- 
6947. For book /software order problems call (415) 366- 
3600. 









Subscriptions: $29.97 per 1 year; $56.97 for 2 years. 
Canada and Mexico add $27 per year airmail or $10 
per year surface. All other countries add $27 per year 
airmail. Foreign subscriptions must be prepaid in U.S. 
funds drawn ona US. bank. For foreign subscriptions, 
TELEX: 752-351. 









Foreign Newsstand Distributor: Worldwide Media 
Service Inc., 386 Park Ave. South, New York, NY 10016: 
(212) 686-1520 TELEX: 620430 (WUD. . 


Entire contents copyright © 1987 by M&T 
Publishing Inc. unless otherwise noted on ) 
specific articles. All rights reserved. 


Dr. Dobb’s Journal of Software Tools is published by M&T 
Publishing Inc. under license from People’s Computer Company, 
2682 Bishop Dr., Suite 107, San Ramon, CA 94583, a nonprofit 
corporation. 









Dr. Dobb’s Journal, June 1987 





CIRCLE 108 ON READER SERVICE CARD 
1 Industrial Way, Eatontown, NJ 07724 





Our ire to NASA for phe this serine sthanosd ultraviolet are taken at Skylab lV of a solar prominence ss eatting out 350,000 miles above the sun’s surface 


Genius Beains With A Great Idea... 


What follows is the time consuming task of giving 
form and function to the idea. 

That’s why we concentrate on building into our soft- 
ware development systems functions and features 
that help you develop your software ideas in less time 
and with less effort. 

We've started 1987 by releasing new versions of 
our MS-DOS, Macintosh, Amiga, ROM, and Apple // 
C development systems. Each system is packed with 
new features, impressive performance, and alittle bit 
more genius. 





Superior performance, a powerful new array of fea- 
tures and utilities, and pricing that is unmatched 
make the new Aztec C86 the first choice of serious 
software developers. 


Aztec C86-p Professional System . .. .$199 
* optimized C with near, far, huge, small, and large 
memory + Inline assembler + Inline 8087/80287 + 
ANSI support + Fast Float (32 bit) + optimization 
options ¢ Manx Aztec 8086/80x86 macro assembler 
¢ Aztec overlay linker (large/small model) ¢ source 
level debugger ¢ object librarian © 3.x file sharing & 
locking * comprehensive libraries of UNIX, DOS, 
screen, Graphics, and special run time routines. 


Aztec C86-d Developer System...... $299 
¢ includes all of Aztec C86-p © Unix utilities make, 
diff, grep © vi editor © 6 + memory models ¢ Profiler. 


Aztec C86-c Commercial System..... $499 
¢ includes all of Aztec C86-d ¢ Source for library rou- 
tines © ROM Support ¢ CP/M-86 support * One year 
of updates. 


Aztec C86 Third Party Software 


A large array of support software is available for 
Aztec C86. Call or write for information. The following 
is a list of the most requested products: Essential 
Graphics ¢ C Essentials ¢ C Utility Library * Green- 
leaf Com. * Greenleaf General ¢ Halo ¢ Panel ¢ PC- 
lint ¢ PforCe ¢ Pre-C ¢ Windows for C « Windows for 
Data C terp ¢ db Vista « Phact ¢ Plink86Plus ¢ C-tree. 


C compiler, 8080/Z80 assembler, linker, librarian, 
UNIX libraries, and specialized utilities. 


Aztec C Il-c (CP/M-80 &ROM)........ $349 
Aztec Cll-d (CP/M-80).............. $199 
Aztec C80 (TRS-80 3&4) ............ $199 

















Manx Software Systems Ser 


Amiga user groups across the USA voted Aztec 
C68k/Am release 3.3 the best Software Development 
System for the Amiga. Release 3.4 is more impres- 
sive. 


Aztec C68k/Am-p Professional ...... $199 
A price/feature/performance miracle. System in- 
cludes: optimized C ¢ 68000/680x0 assembler e 
68881 support ¢ overlay linker © UNIX and Amiga 
libraries © examples. 


Aztec C68k/Am-d Developer ........ $299 
The best of Manx, Amiga, and UNIX. System in- 
cludes: all of Aztec C68k/Am-p ¢ the Unix utilities 
make, diff, grep and vi. 


Aztec C68k/Am-c Commercial....... $499 
Aztec C68k/Am-d plus source for the libraries and 
one year of updates. 





For code quality, reliability, and solid professional 
features, Aztec C for the Macintosh is unbeatable. 
This new release includes features and functions not 
found in any other Macintosh C development system. 


Aztec C68k/Mac-p Professional...... $199 
* optimized C * 68000/680x0 assembler * 68881 
support * overlay linker ¢ UNIX and Macintosh li- 
braries * examples. 


Aztec C68k/Mac-d Developer........ $299 
The best of Manx, Macintosh, and UNIX. System in- 
cludes: all of Aztec C68k/Am-p ¢ the Unix utilities 
make, diff, grep ¢ vi editor. 


Aztec C68k/Mac-c Commercial ...... $499 
Aztec C68k/Am-d plus source for the libraries and 
one year of updates. 


Aztec C65 is the only commercial quality C com- 
piler for the Apple II. Aztec C65 includes C compiler, 
6502/65C02 assembler, linker, library utility, UNIX li- 
braries, special purpose libraries, shell development 
environment, and more. An impressive system. 


Aztec C65-c Commercial ........... $299 
e runs under ProDOS ® code for ProDOS or DOS 3.3 
Aztec C65-d Developer............. $199 


¢ runs under DOS 3.3 ¢ code for DOS 3.3 





An IBM or Macintosh is not only a less expensive 
way to develop ROM code, it’s better. Targets include 
the 6502/65C02, 8080/Z80, 8086/80x86, and 680x0. 

Aztec C has an excellent reputation for producing 
compact high performance code. Our systems for 
under $1,000 outperform systems priced at over 
$10,000. 


Initial Host Plus Target............. $750 
Additional Targets ................ $500 
ROM Support Package............. $500 





Call for information on Vax, PDP-11, Sun and other 
host environments. 





These C development systems are unbeatable for 
the price. They are earlier versions of Aztec C that 
originally sold for as much as $500. Each system 
includes C compiler, assembler, linker, librarian, 
UNIX routines, and more. Special discounts are 
available for use as course material. 


© POUND Gio sais iwi oe a oe $75 





Most Aztec C systems are available as cross devel- 
opment systems. Hosts include: PC/MS-DOS, Mac- 
intosh, CP/M, Vax, PDP-11, Sun, and others. Call for 
information and pricing. 





To become a user call 800-221-0440. From NJ or 
international locations call 201-542-2121. Telex: 
4995812 or FAX: 201-542-8386. C.0.D., VISA, 
MasterCard, American Express, wire (domestic 
and international), and terms are available. One 
and two day delivery available for all domestic and 
most international destinations. 

Aztec C is available directly from Manx and from 
technically oriented computer and software stores. 
Aztec Systems bought directly from Manx have a 30 
day satisfaction guarantee. 

Most systems are upgradable by paying the differ- 
ence in price plus $10. Site licenses, OEM, educa- 
tional, and multiple copy discounts are available. 


To order or for more information call today. 


In NJ or international call (201) 542-2121 e TELEX: 4995812 


TM of Microsoft, Inc., CP/M TM DRI, HALO TM Media Cybernetics, PANEL TM Roundhill Computer Systems, Ltd., 
BHAGT IN PHAGT Assoc., PRE- C, Plink-86, Plink-86 + , P-Force TM Phoenix, db Vista TM Raima Corp., C-terp, PC-lint, TM Gimpel Soft- 


ware, C-tree TM Faircom, Inc., Windows for C, Windows for DATA TM Creative Solutions, Apple II, ee soi TM Apple, Inc., TRS-80 TM 
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G reetings, pro- 
grammers. I’m 
Levi Thomas, assistant 
editor and host of 
DDJFORUM, our SIG on 
CompuServe. If my 
writing style seems 
conversational, it’s be- 
cause I’m accustomed to the SIG, on 
which my readers can talk back. 

It's an interesting phenomenon, 
the on-line life. When I first began 
working for DDJ as electronic editor 
I felt like a DJ on the graveyard shift. 
Posting messages on the message 
board of the SIG, I got the eerie feel- 
ing that there was really nobody out 
there, that just maybe I was talking to 
myself. Luckily the FORUM members 
are a verbal bunch, and even the 
lurkers can be coaxed into respond- 
ing if I ask the right questions or start 
a topic that gets their dander up. 

Now I want to talk to you hard- 
copy readers. I wanna pull on yer 
coats about something. I hope you'll 
talk back to me, either on line or via 
the U.S. Snail. 

<hopping onto soapbox> 

Microcomputers have grown up. 

We all know the story of the mi- 
crocomputer’s Wonder Bread Years. 
Born with features only a mother 
could love (front panel toggle switch- 
es, 2K of RAM, no permanent storage, 
and so on), they have matured into 
smart, fast machines. 

The microcomputer community 
has also grown up. What started a 
few years ago as a hobby has become 
a business. The community has be- 
come an industry. For many of you, 
your fascination with computers has 
turned into a shot at The Dream Job: 
A chance to make a living at some- 
thing you love to do. A chance to 
make work into play. 

However, like many new adults, 
this industry seems determined to 
disown all of its childlike qualities as 
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it seeks a grown-up 
identity. It’s been giv- 
ing up many of the 
values that fueled its 
growth. The _ Suits 
| have moved in, and 

things are tightening 
up. 

Examples: It’s becoming next to 
impossible to get a job on pure abili- 
ty; college degrees are the new pre- 
requisite. The sense of community 
we once got from the computer mag- 
azines is disappearing. I see the term 
hacker changing—not evolving into 
the essence of what it originally 
meant but devolving into a deroga- 
tory term, a term feared by this new, 
“grown-up industry. (Last year I 
was involved with the Hacker's Con- 
ference. Several computer business- 
es were nice enough to help fund the 
affair, but some of them asked that 
their names not be disclosed. They 
were nervous about having their 
company names associated with the 
word hacker.) 

<returning soapbox to closet> 


DDJ is still a reader-responsive mag- 
azine. If you would like to write for 
our October (Forth), November 
(graphics), or December (operating 
systems) issues, send us an outline. 
You can address your article propos- 
als to our new editor, Tyler Sperry 
(you'll meet him on this page next 
month). If you just can't stand the 
thought of using the U.S. Sail, you can 
e-mail me on CompuServe 
(76703,4060), Usenet (well!levi), or ar- 
panet (well!levi@lll-crg.arpa). We 
look forward to hearing from you. 


OL /h 


Levi Thomas 
assistant editor 
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Inaugural Columns 
‘Welcome to the first edition of Pro- 
gramming Pastimes and Pleasures. Togeth- 
er we will explore the prosaic and fantas- 
tic possibilities of programming. 
Sometimes I will pose a problem to solve; 
sometimes I will discuss a programming 
technique or idea you may not have heard 
of; at other times I will tell you about a 
game you can play with your computer. 
At times I will be serious, and at other 
times I will be off-the-wall. Along the way, 
you will learn things you didn’t know be- 
fore, and you will find wonderful new 
ways to waste time with your computer. 
Most of all, I hope you will have fun.” — 
Charles Wetherell, DDJ, January 1979. 

‘Doctor Dobb's Clinic is a new venture. It 
is a place for the display of techniques and 
discoveries. We want to cover any sort of 
method or trick you've found in your ex- 
ploration of (for example, but not limited 
to): CP/M or OASIS or FLEX or APPLE DOS or 
TRSDOS or NEWDOS or RSTS or UNIX or UCSD 
PASCAL OF.... 

‘During our rounds at the clinic we may 
examine a compiler or an interpreter, re- 
vealing its bugs or showing how it can be 
made to perform better. We'd like to tell of 
unobvious uses for standard utilities. We 
want to uncover errors in published docu- 
mentation, to warn people away from pit- 
falls, and to show off those ‘eureka!’ mo- 
ments that make systems work 
rewarding.’’—Dave Cortesi (Resident In- 
tern), DDJ, May 1981. 

“Just after watching Doc Dobb's national- 
ly televised speech from the NCC in Texas, 
I was surprised to receive a collect call 
from the Old Man himself. ‘The lack of 
public domain software for the 16-bit mi- 
crocomputers is appalling!’ remarked our 
Fearless Leader. ‘No one ants to shell out 
that kind of money just so they can stare at 
the operating system's sign-on message. | 
want you to institute a regular column in 
DDJ that will address the needs of 16-bit 
system users and promote the discussion 
and interchange of software.’ Luckily, af- 
ter laying down that sweeping and rather 
alarming mandate, the good Doctor had to 
hang up to go out on a house call (someone 
had choked on an Apple) and I was left to 
my own devices.'’—Ray Duncan, DDJ, Sep- 
tember 1982. 
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Microsoft Avoids Challenge 


We challenged Microsoft to a C compiler duel-to-the-finish, comparing compile, link and 
execution times, and we offered to stop advertising for two months if they won... 


by Roy Sherrill, President, Datalight 


Microsoft purchased our C-compiler 
during February 1987 and we still 
haven’t heard from them. OK, Micro- 
soft, we are extending our challenge 
deadline from April 1, 1987 to May 15, 
1987. After all, the Microsoft ad claims 
“the fastest C you’ve ever seen:’ Your 
reply, Microsoft! 


Walter says Optimum-C is better 


Walter Bright, the developer of Optimum 
C, says that Optimum C would win 7 out of 
10 benchmarks as compared to Microsoft C, 
V.4.0. Walter explained to me that Optimum 
C includes a unique global optimizer that 
helps create compact code while increasing 
execution speed up to 30%. By the way, 
Borland, Walter is still waiting for his copy of 
Turbo C® V.1.0. Borland’s ad claims “the 
fastest, most efficient and easy-to-use C 
compiler at any price.” 

After reviewing Borland’s benchmarks, 
Walter claims that Optimum C is faster. And, 
as for ease of use, all Datalight C compilers 
have been shipped with a free Learn C 
program for the last six months. Also, our new 
EZ Interactive Editor will show you each 
syntax error in your source code, then compile 
or ‘‘make” and run your program, all from 
within the editor. OK, so let the Microsoft 
challenge begin... 


We only ask the following... 


The benchmark suite will consist of the set 
of programs that Microsoft supplied to 
Computer Language for their February 1987 C 
compiler review issue. Microsoft will make 
available the programs to Datalight at least 
two weeks prior to the benchmarking. The 
benchmarking will be between Microsoft C 
4.0 and Optimum-C. It will occur at a mutu- 
ally agreed upon time and place. Interested 
individuals will be allowed to attend. The 
benchmarks will be compiled and run on a 
standard IBM PC-AT. 

There will be two separate tests for each 
program: compile and link speed, and execu- 
tion speed. For each test, a representative 
from each company will set up the compiler 
so that it performs at its best. 

The benchmarks will be adjusted so that 
they take sufficiently long to run, that the 
tolerance involved in timing them is insig- 
nificant. The winner is determined by the 
compiler with the faster execution times for 
the majority of the benchmarks. We’d like 
an answer from Microsoft no later than May 
15, 1987. 


So what’s a global optimizer? 


A global optimizer looks at an entire 
function at once, analyzing and optimizing 
the whole function. A technique called data 
flow analysis is used by Optimum-C to gather 
information about each function. This 
enables your compute-bound programs to 
execute as much as 30% faster after global 


optimization. But, there is one catch...because 
the global optimizer ruthlessly searches for 
ways to speed-up execution speed and mini- 
mize memory usage, it has relatively slow 
compile times. No need to worry, though, 
because you can merely turn the global opti- 
mizer off. In fact, you can select all, none, or 
part of the following optimizations: constant 
propagation, copy propagation, dead assign- 
ment elimination, dead variable elimination, 
dead code elimination, do register optimiza- 
tions, global common subexpression elimi- 
nation, loop invariant removal, loop induction 
variables, optimize for space, optimize for 
time, and very busy expressions. 


Choose from five memory models 


Speed your programs by selecting the mem- 
ory model that best suits your application. 


Model Code Data 
Compact 64k total code & data 
Small 64k 64k 
Program 1M 64k 
Data 64k 1M 
Large 1M 1M 


Compiling, one step... 


Now with the one step DLC program you 
can create OBJ, .EXE and .COM files. Also, 
DLC can handle multiple files and run MASM 
on your assembly files. 


Try Optimum-C risk free 


Try Optimum-C for 30 days and if you are 
not 100% satisfied return it for a full refund. 
Also available is a C tutorial which is a com- 
bination workbook and floppy disk to help 
lead you through the C language with tutor- 
ials, quizzes, and program exercises. 


O.K. Microsoft, it’s up to you. We’ve put 
two months of advertising on the line that 
says you can’t beat Optimum-C to a real 
test. Your answer, please? 


PRICES 
Developer’s Kit w/ C Tutorial $ 99 
Optimum-C w/ C Tutorial $139 


(both with library source) 


Add $7 for shipping in US/$20 outside US 
COD (add $2.50) 


Not Copy Protected 


ORDER TOLL-FREE TODAY! 
1-800-221-6630 


ATTENTION OEMs! 


Contact us regarding arrangements. 


Microsoft and MS-DOS are registered trademarks 
of the Microsoft Corporation. Turbo C is a regis- 
tered trademark of Borland International. 
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Magazine Reviewers Shocked by 
DATALIGHT?’s Performance... 


“Reviewing this compiler was quite a surprise 
for us. For such a low price, we were expecting 
a “lightweight” compiler. What we got was 
a package that is as good as or better than 
most of the “‘heavyweights.”’ Datalight C 
implements a complete C language. It also 
compiles quickly, doesn’t take up much disk 
space, and looks impressive in the 
benchmarks.” 


DR. DOBBS, August 1986 


‘““This is a sharp compiler!.:. what is impres- 
sive is that Datalight not only stole the com- 
pile time show completely, but had the fastest 
Fibonacci executable time and had excellent 
object file sizes to boot!” 


COMPUTER LANGUAGE, February 1986 


Optimum-C Version 3.0 


NEW! 
EZ Interactive Development Environment 


NEW! 
Inline 8087/80287 Math Support 


Full UNIX System 5 C language plus 
ANSI extensions 

Fast/tight code via powerful optimizations 
including common sub-expression 
elimination 

DLC one-step compile/link program 
Multiple memory model support 

UNIX compatible library with PC functions 
Compatible with DOS linker and assembler 
Third-party library support 

Automatic generation of COM files 
Supports DOS pathnames, wild cards, 
and Input/Output redirection 
Compatible with Lattice C version 3.x 
Interrupt handling in C 

Debugger support 

ROMable code support/start-up source 


MS-DOS® Support Features 
Mouse support 
Sound support 
Fast screen I/O 
Interrupt handler 


MAKE Maintenance Utility 


Macro definition support 
MS-DOS internal commands 
Inference rule support 
TOUCH date manager 


Tools in Source Code 


cat—UNIX< style “‘type”’ 
diff—Text file differences 
fgrep—fast text search 
pr—Page printer 

pwd—Print working directory 
wce—Word count 


Datalight 


17505-68th Avenue NE, Suite 304 
Bothell, Washington 98011 USA 
(206) 367-1803 
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What’s Right with High- 
Level Languages? 

Dear DDJ, 

Mike Suman’s criticisms of Modula-2 
in the February 1987 Viewpoint call 
for some comments. 

First, although many Modula-2 im- 
plementations are now available, 
based on Wirth’s Programming in 
Modula-2 (either the second or third 
edition), both the language specifica- 
tions and the preferred standard li- 
braries are still being fine-tuned by 
such bodies as M2WG, the Modula-2 
Working Group of the British Stan- 
dards Institution. As I understand the 
situation, draft proposals from BSI 
now await reaction and fur- 
ther input via the ISO. MODUS 
Quarterly (published by the 
Modula-2 Users’ Association) 
has been covering this debate 
and provides a ‘democratic’ 
forum for suggestions, includ- 
ing Wirth’s own reactions. 
Mike should throw in his pen- 
n orth before the stonecutters 
start chiseling. Contact 
George Symons, MODUS, P.O. 
Box 51778, Palo Alto, CA 
94303; (415) 322-0547. 

Second, I must defend Brian 
Anderson's use of the identifi- 
ers FIRST and LAST in X68000. 
Although in the final, pub- 
lished version these turn out 
to be nonce constants, during 
the development stage (and 
later when the MC68030 is in- 
corporated!) who knows 
what values they might as- 
sume or where else they 
might occur? 

Finally, you must really 
sympathize with Niklaus. You 
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want to keep a_ language ‘“‘sim- 
ple,” “portable,” and “small-core,” 
yet hardly is the ink dry before com- 
mittees emerge wanting to add their 
pet piece of FORTRAN or Ada. Where 
do you draw the line? Certainly ar- 
ray and record constants would be 
useful (as in Turbo but not standard 
Pascal) and may find their way into 
the canon. Modula-2 does have the 
useful, non-Pascal Module Body con- 
struct (a piece of code invoked just 
once when the module is first 
executed). 

Mike's preferred tabular layout for 
setting up Brian Anderson's Ta- 
ble68K will be possible under my 
own forthcoming language called 
Modula 1-2-3. 

Stan Kelly-Bootle 

25 Parkwood Ave. 

Mill Valley, CA 94063 
Stan Kelly-Bootle is the author of The 
Modula-2 Primer. —eds. 


Dear DDJ, 

In his February 1987 Viewpoint, 
Mike Suman raises a couple of objec- 
tions that he suggests show some- 
thing wrong with Modula-2 and 
other high-level languages. I don’t 





A scarlet letter? 


think his objections are cogent, and I 
don't think they have anything to do 
with high-level languages. 

His first complaint concerns the 
use of constants to replace Arabic in- 
tegers. This is not peculiar to high- 
level languages but is a feature of 
most assembly languages, too, so 
whatever is wrong, it can’t be a prob- 
lem of Modula-2 or of high-level lan- 
guages in general. 

His particular complaint concerns 
the use of FIRST and LAST to replace 1 
and 118, respectively; in the program 
on which he is commenting, they ap- 
pear in the declaration: 


Table68K : ARRAY[FIRST .. LAST] OF 
TableRecord; 


This does look odd, but the usual use 
of constants in this situation would 
omit the constant FIRST and replace 
the constant LAST by something 
more informative, such as Number- 
OfOpcodes, so the declaration would 
look like this: 


Table68K : ARRAY[(1.. NumberOfOp- 
codes] OF TableRecord; 


I can’t see why he would ob- 
ject to that. He does say, ‘“‘no 
one can maintain that it is 
really easier, or safer, to 
change values in an early def- 
inition than it is to change 
them in the only place in 
which they are used later, 
when it is obvious what the 
effects of the change are go- 
ing to be.” But six months and 
five revisions later, how will 
you know that the number of 
opcodes is used only once in 
the program, and how easy 
will it be to find that one 
place? 

His larger complaint is that 
Modula-2 contains no com- 
pact and readable way to ini- 
tialize a complex table. But 
then, what language does? 

There are really two points 
mixed up here. One is that 
Modula-2 provides no way to 
initialize variables other than 
by assignment statements; 
there are no facilities for de- 
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Wendin’s Toolbox Tech 





Architecture of Wendin’s Concurrent I/O System 


Wendin’s Operating System Toolbox makes it possible to write a 
concurrent driver for any I/O device. 


Wendin’s Operating System Toolbox 
kernel is composed of three major 
components: the scheduler, the 
memory manager, and the I/O sub- 
system. This month we will show 
how the I/O subsystem works, at the 
QIO (Queued Input/Output ) device 
driver level. 


The I/O system supports concurrent 
and waited I/O operations from mul- 
tiple processes simultaneously. Its 
architecture was derived from the 
VAX/VMS QIO system, which was 
developed by Digital Equipment 
Corporation with these ideas in 
mind. The whole QIO mechanism 
takes advantage of many of the ker- 
nel’s capabilities, including ASTs 
(Asynchronous System Traps), and 
event flags (which are used to signal 
I/O completion). 


Before a program can perform I/O 
operations on a device, it must assign 
a channel to the device. A channel is 
simply a number, similar to an MS- 
DOS file handle. The operating sys- 
tem uses an assigned channel number 
as an index into an array of channel 
control blocks (CCBs) to get infor- 
mation about the channel and the 
corresponding device. 


After assigning a channel with the 
SYS___ASSIGN system service, the 
user program can make calls to SYS 
—QIO or SYS__QIOW (for con- 
current or waited I/O) through the 
INT FF software interrupt. The kernel 
calls the routine EXEQIO, which val- 
idates the caller’s parameters and I/O 
privileges. If the call parameters are 
valid and the channel number cor- 
responds to an assigned CCB, EXE- 
QIO will deliver a KERNEL mode AST 
to the routine ASTQIO in the same 
process context. This allows the 
driver to run on its own stack, but in 
the context of the calling process. 
ASTQIO receives all information 
about the I/O operation in an IRP 
(1/O Request Packet), created by 
EXEQIO from the user program’s 
parameters. 





Listing 1. How ASTQIO dispatches the device 
river given a channel number. 


ASTQIO uses the channel number to 


find the corresponding CCB, and 


obtain a pointer to a data structure 
describing the device assigned to, in 
the format of a unit control block 
(UCB ). The unit number is used as an 
index into an array of UCBs, much as 
the channel number is used as an 
index into an array of CCBs. The UCB 
contains information about a specific 
device, including what general type 
of device is being referenced (for 
example, a terminal, mailbox, or 
disk), and a pointer to the device 
driver code. This double indirection 
(the channel obtains a CCB, which in 
turn references a UCB, which finally 
references the device driver ) allows 
several channels to be assigned to the 
same device at the same time, and for 
any number of UCBs to share the 
same device driver code (for exam- 
ple, the disk driver defines a UCB for 
each disk drive, but there is only one 
device driver for all of them). 


Once ASTQIO has obtained the UCB 


for the requested device, it calls the. 


device driver directly. The device 
driver is responsible for determining 
what to do based on the I/O function 
given in the IRP. The device driver 
will typically call the system BIOS, or 
interface directly to the hardware, to 
perform an I/O operation. 


Finally, the kernel must signal the 
user process that the I/O is done. The 
SYS___QIO services allow two 
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methods for this: an event flag can be 
set, or an AST can be executed when 
the operation finishes. The kernel 
routine STOPIO examines the IRP 
associated with an operation, and 
determines which event flag to set, 
and whether to queue an AST to the 
user process. Finally, the IRP is re- 
moved from the system I/O queues, 
and returned to the memory pool. 
Control is then passed back up the 
chain and returns to the user pro- 
gram. 


A device driver can be written to talk 
to any device, based on standard 
models provided by the Operating 
System Toolbox kernel. Examples in- 
clude mailboxes (functionally equi- 
valent to UNIX pipes ), terminals, disk 
drives, optical disks, or even ex- 
panded or extended memory. Basi- 
cally, the minimum I/O functions 
that the driver needs to support are 
the read and write block functions. 
For some devices (like disks) there 
will be a distinction between virtual, 
logical, and physical I/O. For others 
(like mailboxes), all of these func- 
tions will perform the same opera- 
tion. You can decide how you want a 
device driver to work, and it’s easy to 
integrate a driver into the toolbox 
kernel. 


Next month, we’ll continue with the 
internals of the toolbox. If you’d like 
to learn more about operating system 
design and architecture, pick up a 
copy of Operating System Toolbox 
from Wendin and follow along. 


Operating System 
Toolbox: $99 
Wendin, Inc. 

P.O. Box 3888 
Spokane, WA 99220 
(509) 624-8088 


LETTERS 
(continued from page 10) 


fining initial values at the point of 
declaration as in some other lan- 
guages (although the compiler I use 
provides this as an extension). Unless 
the compiler is very clever, this may 
mean some unnecessary work at ex- 
ecution time, but this does not seem 
like a major problem and certainly 
not one inherent in high-level 
languages. 

The second point is that it is tedious 
to initialize a large table (in the exam- 
ple Suman discusses, it consists of 118 
records of 4 fields each) with assign- 
ment statements. But there are other 
ways. For instance, I like to write a 
table in a readable form in an ASCII 
disk file and read it at run time to ini- 
tialize the table. It’s hard to beat this 
for readability, the table can be edit- 
ed without recompiling the pro- 
gram, and the code to read the table 
is usually not difficult to write. There 
is a problem with reading in enu- 
merated types from an ASCII file: be- 
cause it can be a nuisance to translate 
the ASCII version of the identifiers for 
the values, you can compromise by 
using Arabic numbers for their ordi- 
nal values instead. This can be en- 
dured because the table file can easi- 
ly contain a key for the values. 

Suman offers an assembly-lan- 
guage version of the table in which 
sets are initialized by 16-digit binary 
numbers. I suppose it’s a matter of 
taste, but I don’t find 118 entries like 
that very readable, and I’m sure I'd 
make plenty of errors typing them 
into my program. And what would 
he do if he had a table with real num- 
bers in it? 

I suppose it would be nice if we 
could write our tables in readable 
tabular form in our code and have 
the compiler do the work, but there 
are lots of tasks we might like our 
compilers to perform, and we can't 
build them all in. I would guess that 
initializing complex tables is one of 
those tasks that is just as well left out 
of general-purpose languages. 

John G. Bennett 

301 Roslyn St. 

Rochester, NY 14619-1813 


Dear DDJ, 

Though the Viewpoint by Mike Su- 
man is interesting and raises some 
valid points, I find it to be misleading 
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in three specific ways. 

First, the point about the constants 
FIRST and LAST being used only once 
is not quite right. Consider the index 
variable i. The initialization and ma- 
nipulation of i should always be in 
the range FIRST . . LAST, and further, 
it should exactly cover this range. 
The program is poorly written in 
that the index should have been ini- 
tialized to FIRST, not 1 explicitly. 
Next, the value of the index at the 
end of the initialization should have 
been checked to see that it was equal 
to LAST, so that you know all the ele- 
ments of the table have been initial- 
ized. Far from pointing out a place in 
which Modula-2 is too strict, this 
points out a place in which the pro- 
grammer just didn’t use the language 
properly. 

Second, the fact that Modula-2 
doesn’t allow the specification of 
constant arrays is not an indication 
that Modula-2’s type checking is too 
strict or that its model of program- 
ming is inadequate. It means that 
Modula-2 doesn’t have this feature. It 
is clear that allowing constant aggre- 
gates to be uttered in the language is 
an independent issue from whether 
the language is inconveniently strict 
or not. Strictness and features pro- 
vided are two completely different 
issues. 

Third, asking if imagined (or even 
real) problems with the Modula-2 
language mean there is “something 
wrong with the direction in which 
we are being led” is to miss the point 
altogether. The point of ‘‘higher-lev- 
el” languages that have a strict type 
structure is not to prevent program- 
mers from full expression or to make 
it harder to write legal programs. 
The point is to help programmers by 
making it easier for them to tell 
when they have written a meaning- 
less or illegal program. Here we see 
that a programmer misused the con- 
stant definition facility of the lan- 
guage and that the language lacks the 
ability to utter constant-valued ag- 
gregates. But neither of these faults is 
a fault of strict type checking, nor of 
modularity, nor of the high-level na- 
ture of the language. 

So, if we are being led in the direc- 
tion of modularity and static type 
safety, Mike hasn’t even begun to 


present evidence that the direction is 
wrong. He has shown that small lan- 
guages often lack features that are 
awkward to do without, and he has 
shown that people often forget that 
index variables ought to be initial- 
ized and manipulated using the same 
bounds that were used to declare the 
array they index into. These are in- 
deed things to be wary of, and they 
show that Modula-2 is neither om- 
nipowerful nor errorproof. But this 
is no reason to throw away the baby 
of type checking and modularity 
with the bathwater of a possibly too 
small language and human error. 

Wayne Throop 

86 Fearrington 

Pittsboro, NC 27312 


Happy Ducks 

Dear DDJ, 

Thank you for the very funny Febru- 
ary cover revealing the true nature 
of us WordStar-imprinted program- 
mers. But no thanks for the text edi- 
tors article. For a DDJ feature article, 
it was amazingly uninformative— 
simply an excuse for a two-barrel 
discharge against us happy ducks. 

Especially unfair was the state- 
ment that WordStar-style editors 
“usually use ‘weird’ file formats that 
can’t be read by any other editor 
without some sort of conversion.” 
WordsStar itself works in straight AS- 
Cll when in its program-editing (non- 
document) mode. But that is indeed 
not the most usual WordStar-style 
editor. The MUWSSE is, of course, the 
Turbo Pascal editor, which many 
waterfowl use with other compilers 
as well. And that is nothing but 
straight ASCII. So, just what were you 
talking about? 

Another gross misstatement was 
the wish list. Every programmer I 
know, even strictly dry land, will tell 
you that wish number 1 is speed, 2 is 
speed, and 3 is speed. Other wishes 
appear only after pausing for breath. 
No mention of that in your list. Of 
course, again, the MUWSSE—the Tur- 
bo editor—is the fastest thing under 
ten fingers. And for the price of just 
about any dedicated programming 
editor, you can get Turbo Pascal and 
SuperKey, and then you have the 

(continued on page 122) 
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Clarify and document your source listing and get 


an “organization chart” of your program’s structure 


with two NEW utilities from Aldebaran Laboratories, for C, BASIC, 
Pascal, dBASE® Fortran and Modula-2 programmers. 







wot S 
Now n 
yira 
Source Print” with FO 


organizes your source code, simpli- 
fies debugging, and makes documen- 
tation a snap! It lists one or more 
source files with informative page 








150 FOR INDX = 1 TO 100 
160 IF TB(INDX) = O TH 
170 C = 50: WHILE K 
180 GOSUB 2000 
196: KT(C)-=' X:. T2CC), =.K:°C =.C+.1 
200 NEXT INDX 


EN X = 5 
<= 1000: TB(K) = 0: K = K + X: WEND 


“Occasionally, a utility 
comes along that makes a 









—FOR INDX = 1 TO 100 
160 IF TB(INDX) = 0 THEN X = 5 
G. = 


50 
—-WHILE K <= 1000 
TB(K) = 0 
=K+kxX 





















programmer's life much headings and op- — fe, 
easier. SOURCE PRINT tional line numbers, ei vo ents , 
while offering while (iar < nres && ares{iar}(0} = ¢) a Te BASIC 
is such a program. invaluable features: FS cacadistite 
: . The Index ii, 

It contributes to the (Cross-Reference Wee eee INDEX (Cross Ref) 

9 . list) saves you time ie inrecord 4.191 9=396 19.825 19=826 
programmer’s job by by showing exactly Ai THE BGS BoE 


where variables are 
used and where functions, pro- 


ins 53.2293 
54.2331 
54.2354 


53=2309 
54.2332 
54.2364 


53=2319 
54.2336 
54.2365 


53.2325 
54=2346 
54.2366 


organizing code into a 


intext 4.193 9=395 43.1796 43.1815 


legible format and by 
helping to organize the 
documentation and 
debugging process.” 


— PC Magazine 
Sept. 16, 1986 


Source Print and Tree Dia- 
grammer both have easy-to-use 
menus with point-and-shoot file 
selection, and let you search for 
files containing a given string. 
For IBM PC and compatibles 
with 256K. 

Join thousands of program- 
mers who are working more 
efficiently using Source Print 
and Tree Diagrammer. Order 
these indispensable tools today. 
We ship immediately, and 
there’s no risk with our 60-day 
money-back guarantee. Order 
both and save. Only $125.00. 


800-25 7-59 175 Dept. 56 


In California: 


800-25 7-9 7/4 Dept. 56 


MasterCard, VISA, American 
Express, COD. Add $5 for 
shipping/handling. 


or see your local dealer! 


Source Print and Tree Diagrammer are 
trademarks of Aldebaran Labs. dBASE is 
a trademark of Ashton Tate. Prices subject 
to change without notice. 





C 
00 
cedures, and routines are called. $75 


Locations where new 
values may be assigned to 
variables are shown, making it easy to track down that 
mysterious value change. 

Structure Outlining solves the problem of hard-to- 
see nested control structures by automatically drawing 
lines around them. 

Automatic Indentation of source code and listings 
reduces your editing time and ensures indentation accuracy. 
Plus... Source Print generates a table of contents 
listing functions and procedures. Keywords can be printed 
in boldface on most printers. Multi-statement BASIC lines 

can be split for readability. Functions and procedures can 
be drawn by name from one or more source files to form a 
new file. 


Tree Diagrammer” 


shows your program’s overall organization at a 
glance. Ordinary program listings merely display 
functions, procedures, and subroutines sequen- 
tially, but do not display the relationships be- 
tween these routines. Our revolutionary new 
Tree Diagrammer automatically creates an 
“organization chart” of your program showing the 
hierarchy of calls to functions, procedures, and 
subroutines. Recursive calls are indicated and 
designated comments in the source code 
will appear on the chart. 

Tree Diagrammer helps you organize your 
program more logically. And you'll be amazed at 


how easy it is to debug when you $ 5 500 


see how your routines interact. 


43=1820 45=1902 


Tue 01-06-87 00:28:44 
01-06-87 00:05:14 SALES.C 








Index 


Aldebaran Laboratories 3339 Vincent Rd. Pleasant Hill,CA 94523 415-930-8966 
YES! Rush ME O Source Print @ $75. 

















(| Tree Diagrammer @ $55. 
O Both $125. Ship/Handling $5. For CA add 6% tax Total 
Name 
Company 
Address 
City State Zip 


[]Checkenclosed [CIVISA ([JMasterCard {J American Express 
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VIEWPOINT 





What’s Right with High- 
Level Languages? 

In “What's Wrong with High-Level 
Languages” (Viewpoint, February 
1987), Mike Suman brings up some in- 
teresting points about the limitations 
inherent in any computer language 
but fails to mention any of the 
strengths of Modula-2 or of modern 
high-level languages in general. 

As a college instructor who has 
spent several years developing and 
teaching a course in assembly-lan- 
guage programming, I can well ap- 
preciate the advantages of low-level 


are the conditional and uncondition- 
al jump and the call to subroutine. To 
test several conditions for a loop, you 
must write a cascade of comparisons 
and jumps. To produce a simple rep- 
etition, you must split the control in- 
structions between the outside of the 
loop, the top of the loop, and the bot- 
tom of the loop. Consider Examples 1 
and 2, below, in which some ele- 
ments of a character array are 
cleared using 68000 assembly lan- 
guage and Modula-2, respectively. In 
both examples, the range of items to 
be cleared has been calculated and 
left in variables named TOP and BOT. 
In the assembly-language example, 
the loop constraints are developed in 
five different lines of code, whereas 


in the high-level language example, 
all loop constraints are developed on 
a single line. 

Modern high-level languages al- 
low programmers to express data in 
terms that naturally match a wide 
range of typical problems. Modula-2 
handles the mathematical concepts 
of real and integral numeric types 
and sets, the organizational concepts 
of records and files, and the univer- 
sal concepts of arrays and charac- 
ters. In assembly language, the only 
data type is the computer word. Pro- 
grammers must impose a structure 
and then provide algorithms to per- 
form even the simplest task. Consid- 
er how much easier it is (for exam- 

(continued on page 124) 
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FS Re Re RS Rb 


FOR loop in 68000 


First Array Element to Process: TOP 
Last Array Element to Process: BOT 
The array: DATA 


Used to Index into array: DO 
Used as Pointer to array: AO 


KREKKRKKEKKKKEKEKKKKEKKEKKKEKKKKKEKEKEKEKKKKKKKKKKKKK 


* 


programming. Assembly language 000000 DATA DS 500 yarray of bytes 

has some shortcomings that can be O001F4 +CE a ‘ *first to process 
‘ aa OOO1F6 BOT DC 0 ;last to process 

much more serious than the limita- : 

tions of high-level languages, 

however. rother data 


yand code 





Assembly language is much hard- 
er to learn than are most high-level 
languages, and you must substantial- 
ly relearn it if you move from one 


Assumes TOP & BOT previously calculated 


0001FB  41F900000000 LEA 
computer to another. I grant that the PCOLFE 303900000184 PE Ee 
d bly I ; h 000204 B079000001F6 CMP BOT, DO 
second assembly language 1s muc 00020A 6206 BHI.S LABEL 
easier to learn than the first. It 0020C 42300000 CLR.B  0(AO,DO) 
would, however, take a considerable eto Gre PAS IOP 


effort to adapt from the 68000 to the 


DATA, AO ;set pointer 
zinit index 
7;check bounds 
rend loop 
zloop body 

7; repeat 


000212 END 








Example 1: Clearing elements of a character array in 68000 assembly language 


by Brian R. Anderson 





8086, for instance, especially when 
you consider the peculiarities of Mi- 
crosoft’s MASM. 

Assembly language is hard to write 
and even harder to debug (compared 
to Modula-2), partially because often 
the only control structures available 


MODULE TRIAL; 


VAR 
DATA : ARRAY [1..500] OF CHAR; 
TOP, BOT, i : CARDINAL; 
BEGIN 
(* Assumes TOP & BOT have been previously calculated *} 


FOR i := TOP TO BOT DO 
DATA[i] := OC; 
END; 





Brian R. Anderson, 5105 Lorraine 
Ave., Burnaby, B.C. V5G 2S3 Canada. 
Brian is an instructor in the Electron- 
ics Dept. at the Vancouver Vocational 
Institute. 


END TRIAL. 





Example 2: Modula-2 version of the code in Example 1 
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>) RCHID'S JET 386: 


\_/ POWER FOR THE FUTURE NOW 


a 


mn 


l 


| 


Announcing an end to obsolescence. 
Orchid Technology’s Jet 386™ accel- 
erator card extends the life of your 
computer investment into the 1990s— 
it puts power in your AT that you 
won't outgrow. 


hree Times Faster 
than an AT 


It’s up to three times faster than an 

AT depending on the application, and 
speed is just one benefit. Unequalled 
compatibility and provisions for 
upcoming 386 software mean your 

Jet 386 will handle whatever the future 
has in store: CAD, spreadsheets, 
networking... 


E asy Upgrade 


Easy to use, there’s nothing new 
to learn and no new programs to buy. 
At 25% of the cost of buying a new 386 
PC, it’s easy on your pocketbook, too. 


rom the People 
Who Started It All 


Orchid combined 80386 power with 
the technology perfected for the XT in 
the TinylTurbo and PCturbo 286e. Like 
these critically acclaimed accelerators, 
Jet 386 is built for lasting value. 


Call Orchid to find out how you can 
experience the future today. And ask 
how Orchid can modernize your 
whole office with turbos, graphics, 
networking, and multifunction 
products. 


Jet 386, PCturbo 286e and TinyTurbo 286 are trademarks of Orchid Technology. All other products named are 


trademarks of their manufacturers. 
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Innovative Add-Ons 
45365 Northport Loop West 


Fremont, CA 94538 
415/490-8586 Tlx: 709289 
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grams, it is necessary to 

share resources that are 
in short supply. To help 
manage these situations, a 
priority system is often es- 
tablished. When several con- 
tenders are competing for 
the same resource, the one 
with the highest priority gets the resource. When the re- 
source again becomes available, the next-priority con- 
tender gets it. A simple first-in/first-out queue can be 
thought of as a priority queue in which the time a con- 
tender is enqueued is the priority and lower numbers 
have higher priority. 

In practice, the resource being waited on may be a 
physical device, such as a printer; a logical device, such as 
a file or a record of a file; or the CPU itself. Alternatively, a 
timer scheduler may be implemented by using the de- 
sired dispatch time as the priority and having the de- 
queueing operation wait until the time of day equals the 
dispatch time at the head of the queue. 


Basic Queue Operations 
A priority queueing scheme in a real-time system must be 


Robert Jay Brown, 301 W. High St., P.O. Box 833, Warsaw, 


KY 41095. Robert is a graduate student at Florida Atlantic 
University. He is a consultant involved in designing elec- 
tronic surveillance intercept and cryptography systems. 
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n many real-time pro- | | able to perform the follow- 
The central concept ts that 
inserting and removing from 
the queue can be viewed as 
merging two separate queues. 


ing operations on the ele- 
ments, or nodes, of the 
queue: determine the high- 
est-priority node, add a new 
node, and remove a node. 
Removing the highest-prior- 
ity node is a special case of 
the more general operation 
of removing a node anywhere in the queue. This is called 
preempting. 

The most simple implementation for priority queues 
results in the time to perform at least one of the above 
operations being directly proportional to the size of the 
queue. For extremely large queues, this becomes un- 
workable. The problem is similar to sorting, and sorting 
can be done in a time proportional to the logarithm of the 
number of elements, so you should be able to do as well 
for a priority queue. 

In fact, you can do a bit better than this. Although the 
priority queue algorithm I have implemented (see Exam- 
ple 1, page 18) performs in logarithmic time, it does not 
keep the queue completely sorted. It defers determining 
the second-priority element until after the top-priority 
element is removed. This does not change the logarithmic 
component, but it makes each iteration go faster. 


A Binarv Tree 
The representation for the queue is a binary tree with 
left, rite, and father connections. Each element also con- 
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tains a sort key, which can be interpreted as the priority. 
In addition, a dist cell is used to indicate the minimum 
distance from that node to a leaf, which is a connection to 
no element, or a terminator. The father connection is not 
used to maintain the ordering of the queue but is used to 
allow rapid removal of any node in the queue (see the 
example, lines 28-37). (Note: my structure declaring 
words [lines 3-26], together with examples of their use, 
are available on the East Coast Forth Board as the file 
STRUCG.ARC, and so I will not describe them further here.) 

The word and data cells (lines 36-37) are used to contain 
dispatching information. Word is the address of a Forth 
word to perform when the node is dispatched, and data is 
a word of data, typically a pointer, that is pushed on the 
stack before performing the word. 

The following priority queueing algorithm was first 
described by Clark Allen Crane in 1971. My implementa- 
tion is an extension of a revised version of Crane's algo- 
rithm that is described by Donald Knuth. You can refer to 
Knuth’s The Art of Computer Programming: Volume 3, 
Sorting and Searching (Reading, Mass.: Addison-Wesley, 
1973) for a complete description of the algorithm and an 
analysis of its performance. 


Merging Queues 

The central concept behind Crane’s algorithm is that the 
operations of inserting and removing an element from 
the queue can be viewed as merging two separate 
queues. Crane’s algorithm keeps the highest-priority 
node at the root of the tree, and the subtrees follow the 
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same pattern. Thus, to dispatch the head element of the 
queue (lines 103-106), the left and right subtrees are 
pruned from the root and merged back together, leaving 
the root out of the result. To insert an element on the 
queue (lines 98-101), that element is viewed as a little pri- 
ority queue, in its own right, of one element. This queue is 
merged with the original queue, and the element is there- 
by inserted into the original queue. To remove a node 
from somewhere in the middle of the queue—that is, to 
preempt it (lines 108-111), the node's left and rite subtrees 
are cut off and merged, forming an intermediate result. 
Next, the preempted node is removed by using its father 
pointer to cut it off from the element that points to it. 
Finally, the original queue, less the preempted node and 
its two subtrees, is merged with the intermediate tree 
described above. 

The implementation in the example has been tested on 
a 10-MHz 80286 with one wait state on memory access and 
3.2 percent DRAM refresh interference running under 
LMI PC/FORTH+ 3.1. For 10,000 iterations of an unque on a 
randomly selected element of the queue, followed by an 
enque using a randomly chosen priority, it produced the 
results shown in Table 1, page 18. 


Availability 

The complete source code, as a standard Forth screen file, 
including the benchmark test, is available on Compu- 
Serve (GODDJ), and on the East Coast Forth Board ((703] 442- 
8695). Also, all the source code for articles in this issue is 
available on a single disk. To order, send $14.95 to Dr. 








Read what they’re saying about this 
popular program for prototyping and 
demo-making: 


“A winner right out of the start- 
ing gate. After you use DEMO 
once, you’ll wonder how you got 
along without it.”’ 

—PC Magazine 


“Everybody who writes soft- 
ware, either commercially or for 
in-house applications, should 
immediately order a copy. Period. 
No exceptions.” 

— Soft: letter 


Product of the Month 
—PC Tech Journal 


Thousands of developers and most 

of the largest and best known software 
companies are using this program. 
You can, too. Act now! 


The perfect companion to the Demo 
Program. The Tutorial helps you learn 
the ins and outs of its basic and ad- 
vanced features. Complete with a 96 
page manual containing step-by-step 
instructions, diskette, and function 

key template. \ 


Use 800-number for orders only. 


Questions, special shipping, etc., call 617-332-2240. 


No Purchase Orders. Massachusetts residents add 5% 
sales tax. Outside of the U.S.A., add $15.00. 

Requires 256K IBM PC/Compatible, DOS 2.0 or later. 
Supports Monochrome, Color Graphics, and EGA 
Adapters (text mode only). The Tutorial requires the 
Demo Program. 
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GARDEN, INC. 
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CIRCLE 314 ON READER SERVICE CARD 


18 





QUEUEING ALGORITHM 


(continued from page 17) 
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Table 1: Benchmark test results 


1 ( Timer queue implementation rjb 16:06 07/2186 ) 
2 
3 ( -------------- structure declaring words ---------------- ) 
4 
5S : <struc> CREATE , DOES> @ +; ( 2nd generation defining word ) 
6 
7 ( 'struc' is used to create the defining word for a structure ) 
ys Struc Ongar; ( org struc <struc> ; creates a structure ) 
9 DOES> ( size <struc> <element> ; creates an element ) 
10 DUP @ DUP >R ROT + SWAP ! ( update location counter ) 
ad Re <struc>.: ( make word for element ) 
12 
13 ( 'array' is used to create an array of structures ) 
14 : array CREATE ( #slots slot-size array <array> ; makes array ) 
15 DUE , * ALLOT ( save slot-size and allocate array ) 
16 DOES> ( subscript <array> -- &<array>element ) 
17 DUP @ ROT * + WSIZE + ; ( return pointer to the slot ) 
18 
19 ( 'org' is useful for doing the 4th version of aC “union, ) 
“0° org ( n org <strucname> ; re-initializes location counter ) 
La BL WORD FIND NOT ABORT" Undefined! " >BODY ! ; 
22 
23 ( ‘sizeof’ is used for declaring structures of structures ) 
24 : sizeof (- sizeof <strucname> -- n ; gets the size of a struc } 
25 BL WORD FIND NOT ABORT" Undefined " >BODY @ 
26 STATE @ IF [COMPILE] LITERAL THEN ; IMMEDIATE 
27 
28 ( ---------------- timer queue entry ---------------- ) 
29 
30 0 struc tq ( a node in the timer queue ) 
31 4 tq key ( the sort key: dispatch time ) 
32 4 tq dist ( distance to nearest leaf ) 
a3 4 tq left ( pointer to left sub-tree ) 
34 4 tq rite ( pointer to right sub-tree ) 
a0 4 tq father ( pointer to father of node ) 
36 4 tq word ( word to execute at dispatch ) 
37 5 tq data ( pointer to data for word ) 
38 
39 ( ---------------- timer queue implementation --------------- ) 
40 
41 ( left! & rite! set the left and rite subtrees, respectively 
42 of a node, called the father. The father pointer of the son 
43 node is updated to point to the pointer, left or rite, that 
44 points to the son, so that it may be cleared on an unque. ) 
45 
46 : left! DUP O0<> IF OVER left OVER father ! ( Father Son -- ) 


Example 1: Timer queue implementation 
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47 THEN SWAP left ! ; 
48 
49 : rite! DUP 0<> IF OVER rite OVER father ! ( Father Son -- ) . . s 
= NaN Ce ee Distribute Your Demos with 
51 : No Royalties 
52.: go-rt DUP rite @ >R DUP ROT rite! R> ; ( go dn rite side ) : 
53 Screen Machine creates interactive demos, 
54 : dist@ DUP IF dist @ THEN ; ( P -- P=nil ? 0: dist @) tutorials, menu systems and DOS shells. in- 
5S cludes a text screen editor that optionally 
. 
56 ( This is step M2: from Knuth p 619, sol'n to prob. 32, p 159 ) generates source code" and binary of text 
57 : list-merge (PQR--PQRD ; merge priques P & Q, ) files. Never write code for screen display 
58 BEGIN (R is Roving pointer, D is Distance to near leaf ) again. Capture any program's text screens for 
59 OVER 0= IF Poe nike 3 editing and your own use. Capture CGA com- 
60 2 PICK dist@ EXIT THEN ( yes, D = P->dist; done! ) patible graphics screens for BLOAD or direct 
61 > PICK 0= IF bps nil 7) display. SAVE hundreds of HOURS of work. 
62 ROT DROP OVER SWAP ( yes, P= 9°} 
63 2 PICK dist@ EXIT THEN ( yes, D = P->dist; done! ) Now there’s no need for separate screen and 
64 2 PICK key @ 2 PICK key @ ( P->key < Q->key ? ) demo software packages and no need to pay 
65 < IF ROT go-rt ROT ROT ELSE ( yes, P moves right ) Outrageous royalties. Priced at only $79.00. 
66 SWAP go-rt SWAP THEN ( no, Q moves right ) *Turbo Pascal, Mach 2 for Turbo, Assembler, dBASE II & lll, 
67 AGAIN ; ( loop until one of the trees is eliminated ) BASIC (including The Inside Track and Mach 2). 
68 


69 ( This is steps M3: and M4: from Knuth p 619 ) 
70 : fix-dist (PQRD--P; fixes up distance to nearest leaf 














Supercharge Turbo Pascal 


~— 






1 BEGIN Mach 2 for Turbo Pascal adds assembler 
72 OVER 0= IF 3DROP EXIT THEN (R=nil? yes, done! ) speed to your programs. 90 + subroutines, 
713 ROT DROP OVER rite @ ROT ROT ( Q = R->rite ) most in assembler, give you speed and func- 
74 OVER left @ dist@ OVER < IF ( R->left->dist < D ? ) tionality you never knew was possible. No 
75 DROP DUP left @ dist@ 1+ ( D = R->left->dist +1 ) knowledge of assembler language required. 
76 OVER DUP left @ rite! ( R->rite = R->left ) 

77 OVER 4 PICK left! ELSE ( R->left =P ) INSTANT displays. INSTANT windows (incl. 
78 1+ OVER 4 PICK rite! THEN ( Dt+; R->rite =P ) exploding and boxed). FASTEST sort you've 
79 DUP 2 PICK dist ! ( R->dist =D ) seen. Read/write files FAST as DOS. IN- 
80 >R ROT DROP SWAP DUP R> (Ps Rr Rk =o) STANT menus, 1-2-3 horizontal and vertical 
81 AGAIN ; ( spin down the right sub-tree ) bar. 

82 


Trap*C /“Break & DOS critical errors so no 
more A)bort, R)etry or l)gnore. Emulate 


83 ( tq-merge is Knuth's Algorithm M from p 619 ) 
84 : tq-merge 0 list-merge fix-dist ; (PQ-- P ; merge 2 tq! s 


— 

























85 BASIC PRINT USING for FAST formatted 

86 ( the timer queue root pointer ) VARIABLE TQ 0 TQ ! numbers. Execute any prog, batch or DOS 

87 command without ending program. 

88 ( TQ! updates the father pointer in the first node, & sets TQ ) 

89 : TQ! ( tq -- ; sets TQ and father of tq ) Read environment. Read file directory. 

90 DUP TQ ! ( set the timer queue head ) Get/set file attributes. Plus too many string 

91 DUP 0= IF DROP EXIT THEN ( empty? yes, done! ) functions to describe here. No royalties when 

92 father TQ SWAP ! ; ( no, set father of top node ) you distribute COM programs. All source 

93 code included. A true bargain at $69.00. 

94 : ?waiting DUP father @ @ =; ( tq -- flag ) 

95 

‘7 [ timer queue package entry pointS ----wrrr--n— ) NOT COPY PROTECTED. 30 Day Money-Back 
Performance Guarantee. Requires IBM/com- 

98 : tq-enque ( &tq -- ; enques to timer ) patible & DOS 2 + 

gS QO OVER left ! O OVER rite ! ( nullify both sub-trees ) . 

100 1 OVER dist ! ( distance to a leaf is 1 ) ba is 

101 TQ @ tq-merge TQ! ; ( merge new node with old queue ) Order Now 800 922 3383 

102 We welcome VISA/MC. COD US only $3. 

103 : tq-deque ( -- &tq ; deques from timer ) S/H US $3, Canada $5, Elsewhere $18. GA 

104 TQ @ DUP O= IF EXIT THEN ( returns nil on empty queue ) res. add tax and call 404-973-9272. Demo 

105 DUP. ( save head for answer ) available. Send $5 check. Refunded on direct 

106 DUP left @ SWAP rite @ tq-merg TQ! ; ( merge remains ) purchase. 

107 

108 : tq-unque &tq -- &tq ; removes from timer ) We also publish Stay-Res, Mach 2 for BASIC, 

109 DUP ?waiting NOT IF EXIT THEN 0 OVER father @ ! ( cut ) The Inside Track and Peeks ’n Pokes. 

110 DUP left @ OVER rite @ TO @ ( both subtrees of tq & TQ ) 

111 tq-merge tq-merge TQ! ; ( paste it back together ) MicroHelp, inc. 


2220 Carlyle Drive 
Marietta GA 30062 


CIRCLE 215 ON READER SERVICE CARD 


Dr. Dobb’s Journal, June 1987 19 


ee 











es 


ee 


ess 















-GoldWorks changes 


the economics of expert 


system building. 


GoldWorks, formerly code-named 
Acorn, is designed for professional 
software developers who need to 


_ build serious expert systems and inte- 
grate them with conventional applica- 


tions running on 286- and 386-based 
PCs. It combines the best features of 
high-end expert system tools with 
the ability to develop and deliver 
expert systems inexpensively, on 


advanced PCs. 





heey gives you the best 


- features of an expert system shell. 
With the easy-to-use menu interface, 


you can rapidly prototype and build 


expert system applications without 
knowing the underlying program- 
ming environment. And you get the 
_ GoldWorks tutorial, the San Marco 
_ LISP Explorer® tutorial, an on-line 
_ help system, and example applica- 
tions to get you started quickly. 


: Works like a toolkit. 


_ GoldWorks gives you the best 


a features of an expert system toolkit. 
~ You can access the underlying pro- 






































and customize the 
specific applicatior 


memory on th 


liver expert systems in net t wo . - 
environments. 
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stations . ee Saat = section 
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ery on advanced P 
with multiple inhe 
knowledge repres 
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for cine mo dU 
Plus advanced featur 
the inferencing 
rule sets, es 


lets you develop and rserious 
expert systems on PC ATs. And - 
GoldWorks also takes advantage of 
PCs based on Intel’s powerful 80386 
processor, including the COMPAQ 

DESKPRO 386 and Gold Hills 


386 LISP System. ae Mw 


oS : ie . S Se or 
© Copyright 1987, Gold Hill Computers, Inc. Gold ‘Hill, GoldWorts, GCLISP, and 4386 LISP System are trademarks: of Gold Hill —— Inc, San Marco LISP Explor 
trademark of San Marco Associates. Lotus is a registe 1-2-3 is a trademark of Lotus Development Corporation. BASE is a trademark of Ashton-Tate. 
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ARTICLES 


Two-Bit Analog-to-Digital 
Conversion 


his article describes a simple 
TT technique for measuring an 

analog voltage that is not only 
useful but also demonstrates some 
programming techniques commonly 
used in real-time applications. The 
key to such programming is the use 
of hardware interrupts. A lot of pro- 
grammers might be wary of hard- 
ware interrupts, but once you use 
them you will find they are a power- 
ful tool. I work with embedded con- 
trollers a lot, and so I use them all the 
time. 


Using Hardware Interrupts 

The simplest interrupt scheme uti- 
lizes a hardware timer to generate an 
interrupt at regular intervals. How 
this is done depends on the hardware 
in the system, so it is not possible to go 
into much detail. In general, the idea 
is to set a timer to its free-running 
mode. In this mode, the timer is set to 
some value that decrements on each 
system clock pulse. When the timer 
reaches zero, it generates an inter- 
rupt, is automatically reloaded, and 
Starts to decrement again. Thus, the 
interrupt routine is entered at regu- 
lar intervals. This creates a time base 
for any routines running in the inter- 
rupt and guarantees that each rou- 
tine in the interrupt will be executed 
within a certain interval. I almost al- 
ways have one such interrupt run- 
ning in any system I design. Many 
routines that might otherwise quali- 
fy for their own interrupt can often 





John Musselman, Route 3, Box 344, Es- 
condido, CA 92025. John is VP of engi- 
neering for PMC Industries Inc. and is 
a consulting product design engineer. 
He has designed numerous micro - 


computer-based instruments and 
controllers. 
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by John Musselman 


An example of putting 
interrupts to work 


and how software can 
directly interact with 
hardware 





run in this “master” interrupt, which 
helps simplify things. 

The driver for the analog-to-digital 
(A-to-D) circuit appears in this kind of 
interrupt. The frequency of the in- 
terrupt is not critical, although the 
faster it is, the more quickly or more 
accurately the conversion can be 
made. Once every millisecond (1,000 
times a second) is a convenient figure. 

Figure 1, below, is a simplified 
schematic of the A-to-D converter cir- 
cuit. Just two bits—one output and 
one input—interface the circuit to 
the computer. To understand the cir- 
cuit, first consider the part of it repre- 
sented by the output bit, the resistor, 


Comparator 


Unknown 
Voltage 


and the capacitor. This is actually a 
simple D-to-A converter. The output 
bit is set high or low during each in- 
terrupt. The resistor and capacitor 
values are relatively large, so the volt- 
age on the capacitor is an average of 
the output voltage over time. More 1s 
and fewer Os produce a higher volt- 
age; fewer 1s and more 0s give a low- 
er voltage. If the ratio of 1s to Os is 
held constant over time, the voltage 
will be essentially constant and pro- 
portional to the percentage of 1 bits 
being output. 

A simple way, then, to program a 
D-to-A with one output bit, a resistor, 
and a capacitor would be to repeated- 
ly output m 0s followed by n 1s, 
where m+n is a constant. This could 
be programmed with a software 
counter that decrements on every in- 
terrupt. Comparing the counter 
against some variable determines 
whether to output a high or a low 
during that particular interrupt. 
When the counter reaches 0, it is re- 
set to m+n. The variable thus would 
control the output voltage as the vari- 
able ranges from 0 to m+n. 

The A-to-D converter does not use 


Computer 





Figure 1: Simplified schematic of analog-to-digital converter circuit 
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exactly this method to create its out- 
put voltage, but the concept is the 
same. A counter is used to control the 
conversion cycle, and the ratio of 1 
bits to 0 bits output during each cycle 
determines the output voltage. The 
difference is that the output is not all 
0 bits followed by all 1 bits; the 1s and 
Os can appear in any order. 

In Figure 1, notice that the un- 
known analog voltage is fed into one 
input of the comparator. The other 
input of the comparator is the voltage 
generated by the computer, as ex- 
plained earlier. The output of the 
comparator is a digital signal that in- 
dicates whether the unknown volt- 
age or the generated voltage is 
higher. 


The Software Driver 

The A-to-D software driver samples 
the comparator output at each inter- 
rupt. If the generated voltage is lower 
than the unknown voltage, a 1 is out- 
put, charging the capacitor to a slight- 
ly higher voltage by the next inter- 
rupt. If the generated voltage is 
higher than the unknown voltage, a 0 
is output, discharging the capacitor to 
a slightly lower voltage. In this way, 
the generated voltage seeks the level 
of the unknown voltage and then 
hovers about it. With large resistor 
and capacitor values, the searching 
effect is small and the two voltages 
are essentially equal. You can deter- 
mine what voltage you are output- 
ting by counting the percentage of 1 
bits; this value is the answer sought. 

Example 1, right, shows how you 
do this. The code is for a TMS7000 se- 
ries processor. It is fairly easy to read, 
even if you are not familar with this 
device, but let me point out a few 
things. First, the MOVD instruction is a 
16-bit move. The second byte of the 
variable is specified as the operand 
for this instruction, as in MOVD 
X+1,Y+1. Because the processor does 
not have a 16-bit increment instruc- 
tion, I have used a 16-bit decrement to 
count in one’s complement. The 
count is complemented before being 
saved as the result. 

The conversion cycle takes 1,000 1- 
millisecond interrupts, or 1 second. A 
16-bit counter, COUNT, keeps track of 
this time period. Another 16-bit 
counter, HIGH, keeps track of the 
number of 1 bits output during the 
cycle. At the end of the cycle, HIGH is 
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INBIT: 
OUTBIT: 
PERIOD: 


KIGH: 
COUNT: 
RESULT: 


ATOD: 


HI: 


IODONE : 


ATODDN: 


EQU 1 INPUT BIT POSITION 

EQU 2 ;OUTPUT BIT POSITION 

EQU 1000 ;# OF INTERRUPTS IN A CONVERSION 
DS 2 ;COUNT OF HIGH BITS 

DS 2 s;CONVERSION CYCLE COUNTER 

DS 2 s;RESULT OF CONVERSION 


; MUST BE INCLUDED IN THE SYSTEM 
INITIALIZATION BEFORE INTERRUPTS 
; ENABLED 


MOVD #PERIOD-1, COUNT+1 


; THE FOLLOWING ROUTINES MUST APPEAR 
: IN AN INTERRUPT WHICH OCCURS 
; AT REGULAR INTERVALS 


meee ew ew ewe ew ee ew ee ee oe SO SS eee eee eee — ae we ee ee oe oe ee ee oe ee 


SEE IF INPUT BIT IS HIGH OR LOW... 


eo Me Se Se te Fe 


MOVP APORT, B 
BTJO #INBIT,B,HI 


IF IT'S LOW, GENERATED VOLTAGE IS 
BELOW THE UNKNOWN VOLTAGE. OUTPUT A 


eo Se Ve te Fe Fe 


HIGH. COUNT ONE MORE HIGH BIT... 
ORP #OUTBIT, APORT 
DECD HIGH+1 ;NOTE ONES COMPLEMENT COUNT 
JMP IODONE 


: IF IT'S HIGH, GENERATED VOLTAGE IS 
: ABOVE THE UNKNOWN VOLTAGE. OUTPUT A 
; LOW... 


ANDP #255-OUTBIT, APORT 


. moe ee ee ewe ee ee ee ee eww ewer ee ee eee ~~aeaeee ee eee ee ee 


: SEE IF CONVERSION CYCLE DONE... 
DECD COUNT+1 
Jc ATODDN 


IF CONVERSION DONE, SAVE RESULT 
; AND RESET COUNTERS... 


° 
’ 


Se 


MOVD HIGH+1,B 


:RESULT IS ONES COMPLEMENT 
COM A ;OF COUNT 
COM B 
MOVD B, RESULT+1 
MOVD #-1,HIGH+1 ;ONES COMPLEMENT OF ZERO 


MOVD #PERIOD-1, COUNT+1 


. 
. 


Example 1: Analog-to-digital converter driver 
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Brand New From Peter Norton 


A PROGRAMMER’S EDITOR 


that’s Aghtning fast with the hot 
features programmers need 


=NORTON 






mer’s editor that I wished 
I’d had when I wrote my 
Norton Utilities. You can 


program your way to 
glory with The Norton 


Direct from the 
man who gave you 
The Norton Utilities, 
Inside the IBM PC, 
and the Peter Norton 
Programmer's Guide. 





Santa Monica, CA 90403, 213-453-236 1. Visa, 
Mastercard and phone orders welcome. 


The Norton Editor™ is a trademark of Peter Norton Computing, Inc. C 1986 Peter Norton Computing 
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The Advanced Programmer's Editor 
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e Fast, EMACS-style commands—completely reconfigurable 
e Run other programs without stopping Epsilon—concurrently! 
e C Language support—fix errors while your compiler runs 
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“This is the program- 













TWO BIT A TO D 
(continued from page 23) 










dumped to RESULT, and _ both 
counters are reinitialized. RESULT can 
be read by the main routine at any 
time it is desired to know the input 
analog voltage. It updates once a sec- 
ond. All this is transparent to the 
main routine. 

The number generated by the A-to- 
D routine, RESULT, can take any value 
from 0 to 1,000. This means that there 
are 1,001 possible values—1 more 
than the number of interrupts in the 
conversion cycle. The actual voltage 
that RESULT represents is (RESULT/ 
1,000) times the voltage swing of the 
output bit. If you actually build this 
circuit, be careful to measure this 
voltage. A TTL output may not pro- 
vide the full 5 volts that an NMOS or 
CMOS output will. 

Also, there is nothing magic about 
the number 1,000. The conversion 
cycle may consist of any number of 
interrupts. The more interrupts used 
in a conversion, the greater the reso- 
lution but the longer it takes to get the 
result. You can choose the number of 
interrupts to suit the application. 

This circuit is a good example of 
how to put interrupts to work and 
how software can interact with 
hardware in a direct manner. Using 
software in a feedback loop, as in this 
example, is one of the best ways to 
convert from the analog to the digital 
world and vice versa. 









































Availability 
All the source code for articles in this 
issue is available on a single disk. To 
order, send $14.95 to Dr. Dobb’s Jour- 
nal, 501 Galveston Dr., Redwood City, 
CA 94063 or call (415) 366-3600 ext. 
216. Please specify the issue number 
and format (MS-DOS, Macintosh, 
Kaypro). 
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SAS Institute Inc. 
Announces 


Lattice C Compilers for Your IBM Mainframe 


Two years ago... 

SAS Institute launched an effort to develop a 
subset of the SAS® Software System for the 
IBM Personal Computer. After careful study, 
we agreed that C was the programming 
language of choice. And that the 

Lattice® C compiler offered the quality, 
speed, and efficiency we needed. 


One year ago... 

Development had progressed so well that we 
expanded our efforts to include the entire 
SAS System on a PC, written in C. And to 
insure that the language, syntax, and 
commands would be identical across all 
operating systems, we decided that all future 
versions of the SAS System —regardless of 
hardware—would be derived from the same 
source code written in C. That meant that 
we needed a C compiler for IBM 370 main- 
frames. And it had to be good, since all our 
software products would depend on it. 

So we approached Lattice, Inc. and asked 
if we could implement a version of the 
Lattice C compiler for IBM mainframes. 
With Lattice, Inc.’s agreement, development 
began and progressed rapidly. 


Today... 
Our efforts are complete—we have a first- 
rate IBM 370 C compiler. And we are 
pleased to offer this development tool to 
you. Now you can write in a single 
language that is source code compatible with 
your IBM mainframe and your IBM PC. We 
have faithfully implemented not only the 
language, but also the supporting library and 
environment. 

Features of the Lattice C compiler for 
the 370 include: 


@ Generation of reentrant object code. 
Reentrancy allows many users to share 
the same code. Reentrancy is not an 
easy feature to achieve on the 370, 
especially if you use non-constant 
external variables, but we did it. 

@ Optimization of the generated code. We 
know the 370 instruction set and the 
various 370 operating environments. We 
have over 100 staff years of assembler 
language systems experience on our 
development team. 

@ Generated code executable in both 
24-bit and 31-bit addressing modes. You 
can run compiled programs above the 
16 megabyte line in MVS/XA. 

@ Generated code identical for OS and 
CMS operating systems. You can move 
modules between MVS and CMS 
without even recompiling. 

@ Complete libraries. We have 
implemented all the library routines 
described by Kernighan and Ritchie (the 
informal C standard), and all the library 


SAS is the registered trademark of 


routines supported by Lattice (except 
operating system dependent routines), 
plus extensions for dealing with 370 
operating environments directly. 
Especially significant is our 
byte-addressable Unix®-style I/O 
access method. 

@ Built-in functions. Many of the 
traditional string handling functions are 
available as built-in functions, generating 
in-line machine code rather than function 
calls. Your call to move a string can result 
in just one MVC instruction rather than a 
function call and a loop. 


In addition to mainframe software 
development, you can also use our new 
cross-compiler to develop PC software on 
your IBM mainframe. With our cross- 
compiler, you can compile Lattice C 
programs on your mainframe and generate 
object code ready to download to your PC. 
With the cross-compiler, we also offer 
PLINK86™ and PLIB86™ by Phoenix 
Software Associates Ltd. The Phoenix link- 
editor and library management facility can 
bind several compiled programs on the 
mainframe and download immediately 
executable modules to your PC. 


Tomorrow... 

We believe that the C language offers the 
SAS System the path to true portability and 
maintainability. And we believe that other 
companies will make similar strategic 
decisions about C. Already, C is taught in 
most college computer science curriculums, 
and is replacing older languages in many. 
And almost every computer introduced to 
the market now has a C compiler. 


C, the language of 
choice... 


C supports structured programming with 
superior control features for conditionals, 
iteration, and case selection. C is good for 
data structures, with its elegant implemen- 
tation of structures and pointers. C is 
conducive to portable coding. It is simple 
to adjust for the size differences of data 
elements on different machines. 


Continuous support... 

At SAS Institute, we support all our 
products. You license them annually; we 
support them continuously. You get updates 
at no additional charge. We have a 
continuing commitment to make our 
compiler better and better. We have the 
ultimate incentive —all our software 
products depend on it. 


For more information... 
Complete and mail the coupon today. 
Because we've got the development tool for 
your tomorrow. 


® 


SAS Institute Inc. 

SAS Circle, Box 8000 

Cary, NC 27511-8000 

Telephone (919) 467-8000 x 7000 


i want to learn more about: 


0 the C compiler for MVS software developers 
1 the C compiler for CMS software developers 
© the cross-compiler with PLINK86 and PLIB86 


today...so I'll be ready for tomorrow. 


Please complete or attach your business card. 


Name i nS 


Se ee eee ta Lark i me 





Mail to: SAS Institute Inc., Attn: CC, SAS Circle, Box 8000, Cary, NC, USA. 
DDJ 6/87 


27511-8000. Telephone (919) 467-8000, x 7000 
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Does your programming language 
present you with annoying “dead ends?” 


It may be time to discover the 
power of Revelation. 


When sophisticated program- 
mers first tried database program- 
ming languages they said “Too 
wimpy!” Now they’re discovering 
Revelation’s R/ BASIC. Yes! It's a 
Revelation! 


Let’s start by examining R/BASIC 
philosophically. 


First, it’s a structured lan- 
guage, interfacing smoothly with 
DOS as well as C and Assembler. 
You'll find commands for struc- 
tural coding like CASE, LOOP/ 
REPEAT with WHILE/UNTIL, 
IF/THEN/ELSE and other famil- 
iar friends here. And, like all seri- 
ous programming languages, it 
has a compiler for fast program 
execution. A compiler so fast that 
it can translate 20 lines per second 
for speedy error detection and 
correction. 


You should expect excellent 
string handling in a database 
programming language, but math 
is another story. Or is it? 


Because R/ BASIC was 
developed as a database program- 
ming language, naturally you 
expect it to have powerful string 
handling capabilities. It does. 
Revelation’s R/ BASIC supports 
both dimensioned arrays and 
dynamic arrays. Individual strings 
can be up to 64K in length. But, 
what you might not expect in a 
database programming language 
is a high level of math support. 
Revelation has it. 

R/BASIC offers integral 8087 
support for maximum precision. It 
automatically accesses the 8087 
chip for calculations. And, if you 
don’t have an 8087 chip, R/ BASIC 


incorporates an excellent 8087 
emulator. Trig functions? Of 
course. 


Subroutine flexibility. 


Revelation lets you declare 
your own internal or external sub- 
routines with argument passing. 
Subroutines can be developed in 
C and Assembler, then called 
directly from an application. And 
with Revelation’s recursive routine 
calling, you won't have to write as 
much code. 

How much less code? 

A long COBOL program typ- 
ically runs 20,000 lines. A long 
R/BASIC program typically runs 
300 lines. Imagine how much of 
your development time that kind 
of difference can save. 

R/BASIC will also help you 
produce a clean program fast. Its 
completely interactive symbolic 
debugger traces problems in min- 
utes instead of hours. 


Here’s another way you can save 
time with R/BASIC. 


By incorporating LOCK and 
UNLOCK statements in your pro- 
grams you can change from single 
to multi-user systems without 
making program modifications or 
recompiling. 


Is it time for your personal 
Revelation? 


Once you get used to some- 
thing, it’s difficult to change. But if 
change means progress, it’s worth 
the effort. R/BASIC is a powerful 
programming language that offers 
significant built-in database advan- 
tages over a “pure” programming 
language. These advantages 
can save time during program 
development and time when the 
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application runs. For the serious 
programmer, time is money. It’s 
worth your time to take a look at 
Revelation. 


The basics of R/BASIC. 





























e Compiler. 
e Internal and external subrou- 
tine calling with argument 

passing. 

e Recursive routine calling. 

e Integral 8087 support for 
maximum precision. 

e Support for structured 
programming. 

e No data typing. 

e English variable names. 

e User-defined functions. 

e Full screen editor. 

e Support for ASM and C 
routines. 

e Sophisticated string handling 
includes dynamic array sup- 
port with a 64K limit. 

e Trig functions. 

e Alternate syntaxes. 

e Direct DOS interface. 

e Completely interactive 

debugger. 


If you would like to sample 
the power of Revelation, please 
send $24.95 for our comprehen- 
sive Demo/ Tutorial. A phone call 
gets you complete information. 


COSMOS 


Cosmos, Inc. 

3633 136th Place S.E. 

Bellevue, WA 98006, USA 
Phone (206) 643-9898 

Telex: 185210 (COSMOS MUT) 
FAX: (206) 643-7609 
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nary words and storage address- 

es are compatible types, a pecu- 
liarity of the exclusive-OR function 
allows both links of a doubly linked 
list item to be stored in a single word. 
This space-saving gimmick has been 
part of the folklore of computing for 
some time. In this article I explore the 
mathematical basis of the trick and 
develop a package of C functions to 
implement it in a modular style. 


I na system in which unsigned bi- 


The Exclusive-OR Function 
Consider the exclusive-OR function 
(XOR). You can think of xXOR as an 
arithmetic function similar to addi- 
tion and subtraction; it obeys similar 
metarules. Like them, for instance, it 
possesses 0 as an identity element. 
The identity element of a function is 
the value whose use preserves an 
identity over the function. For 
addition: 


A+O=A 


That is, adding 0 is an identity opera- 
tion; it leaves A unchanged. In 
subtraction: 


A-O=A 
A-A=0 


Here, not only does subtraction of 0 
leave an identity unchanged, but sub- 
tracting identical values yields the 
identity element. Just so: 


A XORO=A (1) 
A XOR A = 0 (2) 


Relation (2) is the basis of the common 
: 
David E. Cortesi, 415 Cambridge St., 


#18, Palo Alto, CA 94306. Dave is a for- 
mer DDJ columnist. 
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by David E. Cortesi 


~ You can 
construct a 
doubly linked list 
with both links in the 
same word. 


assembly-language trick of clearing a 
register by XORing it with itself. 

The addition operation is commu- 
tative—that is: 


A+B=B+A 


This is not true of subtraction, but it is 
true of XOR: 


A XOR B = BXORA (3) 
Addition is also associative—that is: 
(A +B) + C= A+ (BECO 


Again, this is not true of subtraction 
but is true of XOR: 


A XOR (B XOR C) = (A XOR B) XORC (4) 


The XOR operation differs from addi- 
tion and subtraction in that all the re- 
lations (1) to (4) hold for it, whereas 
only (1) and (2) are true of subtraction 
and only (1), (3), and (4) hold for addi- 
tion. Because all four relations hold 
for XOR, so does this peculiar rule: 


(A XOR B XOR C) XOR B XOR C=A_ (5) 


This may not be immediately obvi- 
ous. Come at it in steps: apply rela- 
tions (3) and (4) several times to rear- 
range the formula so it reads: 









The XOR Chain 


A XOR (B XOR B) XOR (C XOR C) = A 
By relation (2), this is equivalent to: 
A XOR (0) XOR (0) = A 


but by (1), 0 XOR 0 is just 0, leaving you 
with: 


AXORO=A 


which merely restates (1). 


Three Links in a Word 
Mathematically, (5) is a tautology, a 
Sassy expansion of (1), but it has a 
practical use for data storage. From it 
follows this: if you have a binary 
word W that contains the result of: 


W = (A XOR B XOR ©) 


and if you know any two of these val- 
ues independently, you can recover 
the third value from W. By relation 
(5): 


W XORBXORC=A 


Similarly, you can recover B know- 
ing A and C, or C knowing A and B. 
You can use this fact to construct a 
doubly linked list using but a single 
binary word to store both links in 
each list item. 

How do you do this? In a doubly 
linked list, each list item contains the 
addresses of its predecessor and its 
successor. Call these A and C, and use 
the item’s own address as B. Set its 
single link word W to: 


W = (A XOR B XOR ©) 
Now, if a program is examining a 


list item, it obviously must know that 
item’s address. Provided it arrived at 
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the item by tracing the list, it must 
have come down to it from its prede- 
cessor or back from its successor, and 
hence it must know one of the ad- 
dresses A or C. Therefore, by (5), it can 
recover the unknown address from 
word W and use it to proceed on- 
ward in the list. 

That’s the basic idea. A complete 
implementation, however, must 
handle the cases of the empty list and 
lists of one and two items, should al- 
low for inserting and deleting ele- 
ments, and ought to be packaged as 
functional subroutines for simplicity. 

Here I'll develop such a package in 
C. In the following code, I assume 
that the unsigned binary integer is 
exactly compatible with a C pointer 
(as may not be the case in, for in- 
stance, the Intel 8086 with a large- 
memory model), and I've left out the 
casts that the more picky C compilers 
may want inserted to make that 
equivalence manifest. The code fa- 
vors clarity over absolute efficiency, 
so you may wish to insert register 
declarations and other changes for 
speed. 


Defining an Item 

In C, the xOR function is denoted by 
an up arrow and inversion of a Bool- 
ean value by comparison to 0. For 
readability, assume that the follow- 
ing defines hold in the example code: 


#define Xor 1 
#define Not 0= = 
#define Nil 0 


Now you can define the structure of a 
list item: 


struct Item { 
unsigned link; 
/* other contents of item */ 


}; 


The link word contains the XORed 
linking addresses. What the ‘other 
contents’ might be depends on the 
application, and so I assume that 
functions to create and destroy /tems 
are defined elsewhere: 


extern struct 

Item *Makeltem| ); 
extern void 

DropItem(i) struct Item “1; 
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Defining a List 

A list consists of a chain of zero or 
more /tems, but there has to be an an- 
chor for the chain: a single fixed 
place where the head and tail of the 
list can be found. I define its form as 
Anchor: 


struct Anchor { 
struct Item *head, *tail; 


}; 


For any list there will be just one An- 
chor. Furthermore, I legislate that if a 
list is empty: 


You can 
think of XOR 
as an arithmetic 
function. 





(head == Nil) && (tail = = Nil) 


Otherwise, head points to the first 
item of the list and tail points to the 
last item. If the list contains but one 
item: 


(head = = tail) && (head != Nil) 


You can express these rules in Bool- 
ean functions that test an Anchor: 


int Zeroltems(a) struct Anchor “a; 
{return( 
(Nil= =a->head&& 
(Nil==a->tail) 


3} 


int Oneltem(a) struct Anchor “a; 
{return( 

(a-> head = =a-> tail) 

& &la-> head != Nil) 


);} 


Scanning a List 

The Anchor of a list gives you access 
only to the first and last items. If you 
are to reach intermediate items, you 
must scan over the list, either for- 
ward from the head or backward 
from the tail. 


While scanning the list, your posi- 
tion is always maintained in a pair of 
pointers that contain the addresses of 
two items that are logically adjacent 
in the list. The item that is nearer the 
head of the list I call the prior item; 
the one closer to the tail I call the next 
item. When I have these items set up 
with valid addresses, I refer to such a 
pair of pointers as a Scan, because I 
can use the pair to scan over the list in 
either direction. Because a pair of 
pointers is always required, I put 
them in a record. Because I am al- 
ways scanning a particular list, I in- 
clude the address of the list’s Anchor. 


struct Scan { 
struct Item “prior, *next; 
struct Anchor *base; 


}; 


Although a list may have only one 
Anchor, it may have any number of 
Scans associated with it. No Scan is 
valid until it has been associated with 
some list, however. Here's a proce- 
dure to do that: 


void Associatels,a) 
struct Scan *s; 
struct Anchor “a; 
{ s->base = a; } 


This procedure is very simple, but in 
some applications, it might have to do 
more. It might be desirable, for exam- 
ple, to keep track of the number of 
scans that are active on a list, and the 
Associate function could do that by 
incrementing a count in Anchor. 

A program may scan a list by mov- 
ing a Scan structure from the current 
position to an adjacent one. But a scan 
has to start somewhere. This proce- 
dure sets a scan to the head of the list: 


void ToHead(s) struct Scan *s; 


s->next = s->a->head; 
s-> prior = Nil; 


When a scan is at the head, the pri- 
or pointer contains Nil (nothing pre- 
cedes the head of a list) and the next 
item is the head item of the list. A sim- 
ple function can test a Scan for this 
condition: 


int AtHead(s) struct Scan “*s; 
{ return( s-> prior == Nil); } 
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XOR CHAIN 
(continued from page 29) 

A procedure can set a scan to the 
tail of its list: 


void ToTail(s) struct Scan *s; 


s-> prior = s->a->tail; 
s->next = Nil; 


When a scan is at the tail of a list, 
the next pointer contains Nil (nothing 
follows the tail of a list) and the prior 
item is the tail item of the list. A Bool- 













BSW-Make, our retargetable 


products after an editing session. 


after each edit. A major timesaver! 





e Works with any compiler, assembler, or linker 
e Macro facility for parameterized builds 


e Indirect command file generation facility overcomes operating 
system command length limitations 


e MS-DOS/PC-DOS version only $89.95 
e VAX/VMS version from $299.95 


e Not copy protected 
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Never Miss A Compile Again! 


make 
development by automating the chore of rebuilding complex software 
No more missed compiles! No 
more wholesale ‘‘just in case’’ recompilations of the whole product! 
BSW-Make insures that the minimum set of compilations, assemblies, 
and links required to correctly update your software are performed 


Syntax compatible with UNIX make 


Unconditional 30-day guarantee — try it at no risk! 


for free product information, call 


(617) 367-6846 
Ask for Department D2 


The Boston Software Works, Inc. 
120 Fulton Street, Boston, MA 02109 


ean function can test for this 
condition: 


int AtTail(s) struct Scan *s; 
{ return( s->next == Nil); } 


Recall that a list is empty when the 
head and tail pointers in its Anchor 
are Nil. Verify for yourself that, for a 
Scan associated with an empty list, 
applying either ToHead or ToTail 
makes both AtHead and AtTail report 
true. Earlier I defined a function Ze- 
roltems, which tests an Anchor to see 
if it’s empty. Now I can define a func- 
tion that tests not an Anchor but a 


utility, speeds software 
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Scan: 


int EmptyList(s) struct Scan *s; 
{ return( AtHead(s) && 
AtTail(s)); } 


Consider the implications for loop 
control. Either the sequence: 


ToHead(z); 
while (Not AtTail(z)) 
{step forward in list} 


or the sequence: 


ToTail(z) 
while (Not AtHead(z)) 
{step backward in list} 


can work safely—that is, do noth- 
ing—on an empty list. 


Stepping a Scan 

Having set a Scan to the head of a list, 
you want to be able to step it forward 
in the list. You do that using the iden- 
tities of XOR. Consider an /tem that is 
neither at the head nor the tail of a 
list. If it is located at address B and if 
its predecessor is at address A and its 
successor at address C, then its link 
word contains A XOR B XOR C. The 
link word plus the contents of the 
Scan let you step it forward: 


void GoFwd(s) struct Scan *s; 
{ struct Item “i: 

1 = s->prior Xor 
s->next Xor 
s->next-> link; 

s-> prior = s->next;: 

s->next =i; 


Variable i receives the link word of 
the next Jtem minus the contribu- 
tions made by its own and its prede- 
cessor’s address: in short, its succes- 
sor’s address. 

In this way you can process all the 
items of a list: 


Associate(z,a); 
ToHead(z): 
while( Not AtTail(z) ) 
{ 
Process(z-> next): 
GoFwd(z); 


If you are accustomed to C, you may 
preter to see this written using a for 
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Develop DB applications 10 times faster without 
the coding pain...you'll swear it’s Magic 


AKER Corp. MAGIC PC 
on 


12/03/86 
Task Definiti cd 


Se Fe 


> aclor then Meo MO st ese aS Le). 


13.Order Entry Screen 


rl ose eth ak. 
Beg. Link 
End Link 
Beg Block 
End Block 
Exec Task 
9|Upd. Field 
10j]Write File 
Pde ome we ea 
12|Scan File 
13}User Exit 
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3 Description 
2| Customers 


Visual Programming with Magic PC looks as simple as this. To design an application you quickly place your 
design specifications into menu-driven Task Tables without having to write a single line of code. For example, 
just by highlighting the Execute Program operation on the left screen and also highlighting the Item List 










Order Entry 














Order No: 999 


Customer No: 
Order Date: 99/99/99 


Address: 


99999 
AAAAAAAAAAAAAAAAAAAA 







Total Price 


AAAAAAAAAAAAAAAAAAAA ~ ee hh Te 8 ie: be Be ie be) 


Order Sum 
Discount 











999.99 
-999,999.99 
Sub-Total -999,999.99 
99.99% Sales Tax -999,999.99 
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program in the Program Menu, you tell Magic PC to Zoom into the Item List program through the window 
shown on the right screen. The window will automatically scroll the Item List data horizontally and vertically, 
and allow query, “cut and paste” copy or even creation of new Items. 

















In Stock: -999,999 
Total Orders: -999,999 
Avail to Sell: -999,999 





Free yourself from coding 

Database professionals throughout the world are 
discovering a new way to dramatically cut develop- 
ment time. 


So can you! With Magic PC, the Visual Database 
Language by Aker. 


Consultants, VAR’s, Software Houses and DP MIS 
professionals: If you develop DB applications for a 
living, now you can tackle any database application 
10 times faster than with your DBMS or 4GL. 

What makes you so fast with Magic PC? 

It’s not magic... .it’s simply because Magic PC finally 
frees you from coding. And doesn’t coding take up 
most of your time right now? 

Magic PC lets you leverage your design skills 
instead of wasting your time coding. Now you can 
generate a fully functional prototype in just hours for 
quick customer feedback, and easily refine the same 
prototype to a finished application. 

All you do is enter your system design specifica- 
tions directly into Magic PC’s non-procedural menu- 
driven Tables, as ideas come to mind, and Magic PC 
generates the programs for you automatically. 

Magic PC gives you a free hand to design powerful 
data management systems limited only by your own 
imagination. Without the time consuming mechani- 
cal details of conventional procedural programming. 
There’s your competitive edge. The rest is up to you. 

Your biggest time saving comes from Magic PC’s 
dynamic adaptation to spontaneous design changes. 
You're free to change your design on the fly, and 
Magic PC automatically updates your programs and 
data files online. No more time wasted maintaining 
each program manually with every small change. 


Visual Programming Power 

You program with Magic PC by describing your 
data elements with Data Dictionary Tables (Files, 
Fields, Keys), and placing your system design spec- 
ifications into Task Description Tables. 

The Tasks can be nested within one another or 
dynamically Link to satellite Tasks, to give you true 
One-to-Many relational database power. 

Only 13 Task Operations harness the power of 
Magic PC. Operations are specific enough to elimi- 
nate the need for tiresome coding, yet elastic enough 
to produce robust custom applications. 

Use the Task building blocks to quickly generate 
Online Programs: Screens, Window Zooms, Menus; 
or Batch Programs: Reports, Updates, Data Import/ 
Export and much more. 

You develop the Task Tables visually on the screen 
by highlighting selections from Window Zooms and 
pop-up menu-driven Tables. You’re not forced to fol- 
low any particular Table sequence, and there’s no 
coding to slow you down. It’s that simple. 

You can apply mathematical and logical Expres- 
sions, or use the built-in Functions directly in the Task 
Tables to automate conditional Task processing, to 
display custom error messages or even invoke exter- 
nal applications such as spreadsheet, word processing 


or communication programs, transparently from 
within your Magic PC application programs. 

Magic PC generates your application by fusing all 
your Data Dictionary and Program Tables seamlessly 
into a single Integrated Library, and automatically 
maintains changes online for optimal, bug-free per- 
formance, so you always get it right the first time. 

Your application is executed at runtime by a Magic 
Run engine for stand-alone operation, and you can 
distribute your applications at a low cost and protect 
your design. Magic Run has a built-in visual interface 
to manipulate data and get on-the-spot ad-hoc infor- 
mation without any commands or syntax, simply by 
highlighting selections from menus. Data validation, 
security and error-checking are done automatically 
for you without programming. 

Magic PC has built-in support for File and Record 
Locking so you can design multi-user applications 
for a local area network, and share data with any 
number of Magic Run users. 

Magic PC integrates the Btrieve file manager inter- 
nally, supporting the B-Tree file structure for fast high 
performance data access, and fault tolerant recovery 
during power failures. 

Magic PC’s powerful Window Zoom lets you 
design composite screens with windows to probe 
deep into the application through nested windows and 
manipulate the data underneath. By Zooming from 
any field, your end-user can conveniently query, Copy 
or even create data in other programs directly through 
the windows, without stopping their screen session. 
The window frame size does not limit the available 
Data View since each window has built-in horizontal 
and vertical scrolling. 


Magic PC is the professional’s choice: 

IBM France: “IBM encourages Magic PC and 
salutes such evolution...” 

Israeli Air Force: “We were convinced that it was 
not possible to have a design tool powerful enough to 
implement real life applications without a program- 
ming language. Magic PC changed our mind...” 

PC Magazine: “If the thought of programming 
database applications makes you tremble, Magic PC 
is for you. The applications generator saves users 
from the need to deal with much dreaded computer 
language code...” 

PC Tech Journal: “Magic PC is probably the best 
integrated database application and screen generator 
that we have seen...very smooth system, and 
smoothness comes at a premium these days...” 

PC World: “Relational data managers and appli- 
cation generators that offer power without program- 
ming are a bit like perpetual motion machines — very 
rare. Into that vacuum comes Magic PC, a data man- 
agement tool without language that is ideal for 
turnkey applications...” 

PC Week: “Rather than use a written programming 
language the user is given a great deal of freedom and 
power to create complex relational database applica- 


tions...this package is a true time-saver. . = 
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Get your Magic Tutorial for only $19.95 

See for yourself how fast and powerful visual 
programming can be for you. Order your copy of 
Magic PC Tutorial including Tutorial disks, and a 
step-by-step tutorial to quickly set up an Order Entry 
application without coding. All for only $19.95 and 
We’ ll credit the Tutorial cost towards the $695 Magic 
PC price for up to 30 days. 


Or save $500 at no risk! 

Yes, for a short time only, qualified VAR’s can save 
almost $500 off the list price and get the complete 
unprotected Magic PC software and documentation 
at a special VAR price of $199* with no risk. Keep 
it at this low price only if it’s as good as we say, or 
return it within 30 days for a full refund if you’re not 
completely satisfied. Act now and you'll also get 2 
Magic Run (runtime modules) for only $95. 


Order now for immediate delivery 

Call this toll-free number now with your credit card 
or COD charge, or send the Order Coupon below 
today with your check to Aker. 


1-800-345-MAGIC 
in CA 714-250-1718 


ces ee ee ee ee ee ee ee ee 
Yes, please rush me the following 
Prices include 2nd day shipping 








1) Magic PC Tutorial $ 25.95 
(1 Magic PC (VAR’s only) $209.00 
L] Magic PC $705.00 
L) Magic Run $100.00 
in CA add 6% tax Se 
Total $ 
Ship to: ————_$_$_$_ 
Address: ———————_{_/[?_____ 
City/ST/Zip: —— ——@@____  _ @@_____—_ 
Phone: 





OEM inquiries are welcome. Prices valid in North America only. 

*Less $19.95 restocking fee. Limit one per customer, subject to availability. Not for 
resale. 

System requirements: IBM PC, XT, AT and 100% compatibles, PC-DOS 2.0 or later, 


512K and hard disk. 





Aker Corp. 18007 Skypark Cir. B2, Irvine, CA 92714 
Tlx 4931184 AKER UI 

Aker S.A. 11 Route de Florissant CH-1206, Geneve 
Switzerland Tlx 421792 AKER CH 


Trademarks: Magic PC, The Visual Database Language, Window Zoom, Magic 
Run, Magic LAN and Magic PC Tutorial are trademarks of Aker Corp., IBM PC anc 
PC-DOS are trademarks of IBM Corp., Novell is a trademark of Novell Inc., Btriev 
is a trademark of Softcraft Inc. 





WINDOWS FOR DATA” 





The first choice 





of professional 
C programmers 


“Windows for Data is the best 
programming tool I’ve ever used. 
It’s the most flexible I’ve seen. 
Whenever I’ve wanted to do something, 
I've been able to find a way” 


Professionals choose our tools because 
they are designed, crafted, and supported 
for professionals. Here at Vermont Creative 
Software, we understand that performance 
and pleasure in programming derive 
from more than a long list of functions. 
Windows for Data provides: 


PROFESSIONAL FLEXIBILITY: 
Our customers repeatedly tell us how 
they've used WFD in ways we never imagin- 
ed - but which we anticipated by designing 
WED for unprecedented adaptability. Vir- 
tually every capability and feature can be 
modified to meet special needs. You will be 
amazed at what you can do with WFD. 


PROFESSIONAL PERFORMANCE: 
Screen output is crisp and fast. Windows. 
menus, and data-entry forms snap up and 
down from the screen. WFD is built upon 
and includes Windows for C, the win- 
dowing system rated #1 in speed and 
overall quality in PC Tech Journal (William 
Hunt, July 1985). 


PROFESSIONAL RELIABILITY: 
An unreliable tool is worse than no tool at 
all. VCS products are known in the industry 
for their exceptional reliability. Ask anyone 
who owns one. 


PROFESSIONAL DOCUMENTA- 
TION: Over 600 pages of documentation 
provide step-by-step explanations for each 
major application, a reference page for each 
function, listings of functions alphabetical- 
ly and by usage, anda fully cross-referenced 


Steven Weiss, 
Stratford Systems 


index. Extensive tutorials and demonstra- 
tion programs assist learning. 


PROFESSIONAL TECHNICAL 
SUPPORT: The same expert program- 
mers that develop our products provide 
prompt. knowledgeable technical support. 


PROFESSIONAL PORTABILITY: 
High-performance versions of VCS 
products are available for XENIX, 
UNIX, and VMS, as well as DOS. No 
royalties on end-user applications. 





OUR CHALLENGE AND 
GUARANTEE 

If you have an application where no 

other tool can do the job, try Windows 

for Data. If it doesn't help you solve 

your problem, RETURN FOR A FULL 

REFUND. YOU MUST BE SATISFIED. 


Ask for FREE DEMO DISKETTE 










Vermont 
Creative 

Software 
21 Elm Ave. 


Richford. VT 05476 
Telex: 510-601-4160 VCSOFT 


Tel.: 802-848-7731 


Prices: PCDOS* $395: XENIX. VMS. UNI) 
"PCDOS specify C compiler. 
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WINDOWS FOR DATA 


for DOS, UNIX, VMS ... 
The complete windowing data entry, menu, 
and help system that does the hard job 
others can’t — we guarantee it! 


Pop-up data entry windows; field types for 
all C data types, plus decimals, dates, and 
times; auto conversion to and from Strings 
for all field types; system and user supplied 
validation functions; range checking; re- 
quired, must-fill, and protected fields: free- 
form movement; multiple-choice field entry; 
scrollable sub-forms. Branch and nest win- 
dows, forms, and menus. 


Complete context-sentitive help system 
with pop-up windows and scrollable text. 


Pop-up, pull-down, scrollable, and Lotus- 
style menus. 


NEW FOR DEBUGGING: Exclusive 
VCS Error Traceback System auto- 
matically identifies the location and 
cause of program errors. Eliminates the 
need to code error checks on all function 
calls! VCS Memory Integrity Check- 
ing helps catch those hard-to-detect, 
memory-corruption errors. 


NEW FOR ERROR HANDLING: In- 
stall your own error handler to be called 
whenever a function detects an error. 


NEW FORM LAYOUT UTILITY sim- 


plifies form design. 
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XOR CHAIN 
(continued from page 30) 


tion. When you go backward, from 
tail to head, you take them from the 
prior slot. Here’s a going-backward 
loop: procedure: 
void GoBak(s) struct Scan *s; 
{ struct Item *i; 
1 =s->prior Xor 

s->next Xor 

s-> prior-> link; 
Ss->next = s->prior; 
which amounts to the same thing. s->prior = i; 

When you process a list from head | } 

to tail, the Items to be processed are 
those that turn up in the next posi- 


Associate(z,a); 
for(ToHead(z); 
Not AtTail(z); 
GoFwd(z)) 
Process(z-> next); 
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HI TECH C Compiler 

* Complete production quality compiler _ 

° Smallest, fastest code from any compiler 

° High performance C Compiler for the 280, 68000, 65816, and 

8086 processors 

Runs on CP/M-80, PC-DOS, MS-DOS, CP/M-86, 
CONCURRENT CP/M, ATARI ST and APPLE // gs 

¢ Now in use at thousands of sites worldwide, including 

Australian Government and large institutions. 

° Excellent user interface 

e ROM code is supported and it includes a macro 

assembler, linker, librarian, object code converter, cross 

reference utility and full library source code. The 8086 

compiler supports large and small memory models and 





plus shipping 




















CrossCompilers 
° Run under MS-DOS, UNIX, and CP/M-86 and produce 


plus shipping 








code for the 68000, 8086/286, 65816, 8096 and Z80 processors. 
Each compiler includes an assembler, linker, librarian, 
object code converter and cross reference utility. 









The Cutting Edge 


Order from: SOFTFOCUS 1343 Stanbury Drive, 
_ Oakville ONTARIO Canada L6L2J5 
(416) 825 0903 or (416) 844 2610 
i 


U.K. Greymatter (0364) 53 499 
Australia Hi TECH SOFTWARE 
P.O. Box 103 Alderley 4051 (07) 38 6971 
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Here you take the link word of the 





predecessor Item minus the contribu- 
tions of its own address and of its suc- 
cessor: in short, the address of its pre- 
decessor. With this procedure and 
ToTail, you can process a whole list: 


Associate(z,a); 
ToTail(z): 
while( Not AtHead(z) ) 
{ 
Process(z-> prior); 
GoBak(z); 


It may not be clear that these pro- 
cedures work for all items of all lists. 
Before you can be sure they do, you 
need to define what the link words of 
the head and tail items contain. The 
simplest rule works: the link word 
contains xOR 0 for irrelevant address- 
es. Table 1, below, shows a complete 
four-item list whose anchor is Test. 
Presume that the following loop is to 
be executed using the list in this table: 


Associate(z, Test): 
ToHead(z); 
while(Not AtTail(z)) GoFwd(z): 


Trace the contents of prior and next 
at each step and assure yourself that 
all the pointers work out correctly. 
(Surely you don't take articles such as 
this one on faith, without at least 
desk-checking the code?) Then trace 
them through this loop to verify the 
rest of the code given so far: 


for(ToTail(z,Test): 
Not AtHead(z): 
GoBak(z)): 


What would happen if a program 
applied GoFwd just once too often? 
Or GoBak? Clearly you ought to ac- 
count for these end effects. What 
shall be done with the head item 
(which has no predecessor) and the 
tail item (no successor)? You can ei- 
ther wrap around or stick. Here is a 
safe StepFwd procedure: 


Address Contents 
Test.head A 

A->link AxorB 
B->link A xor B xor C 
B xor C xor D 
C xorD 


C-> link 
D-> link 
Test.tail D 





Table 1: A four-item list whose an- 
chor is Test 
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void StepFwd(s) struct Scan *s; 
{ if (Not AtTail(s)) GoFwd(s); } 


that simply sticks when it reaches the 
tail. Here is a StepBak procedure that 
wraps around: 


void StepBak(s) struct Scan *s; 


if (AtHead(s)) ToTail(s); 
else GoBak(s); 


} 


Inserting an Item 

You construct a list by starting with 
Zeroltems true and inserting new 
items. Example 1, below , shows one 
way to insert a new item between 
the prior and next items of a scan. In 
the statement: 


s->prior->link Xor= 
(i Xor s->next) 

















void Insert(i,s) 
struct Item *i; 
struct Scan *s; 






if (AtHead(s) ) 
s-—)a-)head = i; 

else 
s-)prior-)link Xor= 

(i Xor s-)next) ; 





if (AtTail(s)) 
s-)a-)tail — i; 
else 
s-)next-)link Xor= 
(i Xor s—)prior); 






i-)link = 
s-)prior Xor s-)next Xor 1; 
s-)prior = i; 


Example 1: A way to insert anew 
item between the prior and next items 
of a scan. 


Address Contents 
Test.head Nil 
Test.tail Nil 

A.link ? 

B.link 


? 
C.link 7 
D.link ? 


Table 2 An empty list and four 
prepared items 
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you take the predecessor's link, re- 
move from it the contribution of the 
successor’s address (by XORing with 
s->next); and install the value of its 
new successor—the item with ad- 
dress 1. 

A similar statement fixes’ the 
link word in the next item, except 
that it’s the predecessor’s address 
that is removed in favor of i. Finally, 
the new item’s link is formed from its 
own address and that of its new pre- 
decessor and successor. It becomes 
the prior item, so a series of inser- 
tions will build up in head-to-tail 
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% COMPILERS 

eC © C++ @ Pascal ¢ FORTRAN 
%. MACRO ASSEMBLER / LINKERS 
%. SIMULATORS 


%¥. sYMBOLIC DEBUGGERS 


¢ Other Complete Tool-Kits Targeting: 
— 80386 pius 8086/ 186/286 
— NS32052 
— Fairchild Clipper 


e C++ Object-Oriented C++ Translator 


© OASYS PC Platform™ 32-bit /2MB- 
16MB Co-Processor Board for IBM PC 
and Compatibles. 1-5 MIPS. UNIX 
and MS-DOS on the same System. 
Supports OASYS Tool-Kits. 















Trademarks are acknow 
DEC, Microsoft, AT&T, and XEL, Inc. 
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Cross-Development Puzzie 
Every Piece is in Place 


68020+ 
68881 


Oasys offers the complete development solution 
Fast, Highly Optimized and Available 


68020 + 68881 and 68000/ 10 Cross & Native Development Tools 
%. PERFORMANCE ANALYSIS TOOLS 
%y. REAL-TIME OPERATING SYSTEMS 


4. LANGUAGE-SENSITIVE EDITORS 


¥¥. COMMUNICATIONS/ DOWN- 


Plus over 120 other software development tools including: 


Let us help you solve your puzzle. 


NB AY Wo) (Op Ola e Le 


60 Aberdeen Avenue, Cambridge, MA 02158 (617) 491- 
to: U.S. Government (AJPO), 


order. 

To verify this, commence with an 
empty list and four prepared items, 
as shown in Table 2, below, and exe- 
cute the following sequence of oper- 
ations by hand: 


Associate(z, Test); 
Insert(A,z); 
Insert(D,z); 
GoBak(s); 
Insert(B,z); 
Insert(C,z); 


keeping track of the new contents of 






LOADING UTILITIES 











e PC/Ada: Validated Ada® and APSE 
for IBM PC and Compatibles 


TOOL-KITS 
AVAILABLE FOR: OASYS SERVICES: 
VAX / VMS/ ULTRIX e New ports easily 
SUN arranged 
APOLLO 
GOULD © OEM, site and cor- 
IBM PC porate licensing 
OASYS PC 

PLATFORM™ e Training available 
... MANY MORE 
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Get the diagnosis from the 
Doctor in your own home. 


Subscribe to Dr. Dobb’s Journal and enjoy the 


convenience of having your personal copy de- 
livered to your home or office each month. 


And you'll save over $5 off the cover price! 


Every issue of Dr. Dobb’s will bring you in- 
dispensable programming tools like algo- 


rithms, coding tips, discussions of fundamental 


design issues, and actual program listings. 
You'll find regular coverage of: 


¢ Popular languages such as C, Assembly, 
Forth, Pascal, Ada, Modula-2, BASIC, FOR- 
TRAN, and Cobol. 

¢ 68000 and 80x86 architectures 

¢ The MS-DOS, and Unix operating systems 


¢ Usable techniques and practical applications 


of AI and object-oriented programming 
research. 


¢ New product reviews, and lively discussion of 
professional issues in software design. 


¢ Compilers, cross assemblers and much more! 


Dr. Dobb's Journal of Software Tools . . . 
the magazine that has lived up to its reputation 
as the foremost source of technical tools since 
1976. One year (12 information-packed is- 
sues ) is just $29.97—to subscribe simply mail 
in the attached card. But do it today... you 


won't want to miss any of the exciting issues 
we have planned. 
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SUBSCRIBE & SAVE 


Subscribe to DR. DOBB’S JOURNAL 
and save over $5—a 15% savings 
off the cover price! 







2 Please charge my: 2 Visa @ MasterCard ee American Express 
I Payment enclosed (_] Bill me later : 


Card # Exp. date 





Signature 





Name 





Address 





City Siate....... ip 


ONLY $29.97! YOU SAVE OVER $5.00 


Savings based on a full one-year cover price of $35.40. Canada and Mexico add $10 for surface mail per year. All countries 
add $27 for airmail per year. All foreign subscriptions must be prepaid in U.S. dollars drawn ona U.S. bank. Please allow 
6-8 weeks for delivery of first issue. 


A Publication of M & T Publishing, Inc. 3448 
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A Publication of M & T Publishing, inc. 3448 


COMMENTS & SUGGESTIONS 


Dear Reader, June 1987, #128 
Dr. Dobb’s has a long tradition of listening to its readers. We like to hear when something really 

helps or, for that matter, bothers you. In this hectic world of ours, however, it is often difficult to 

take the time to write a letter. This card provides you with a quick and easy way to correspond and, 

if you include your name and address, we may use appropriate comments in The Letters column. 

Simply fill it out and drop it in the mail. —Ed 


Which articles or departments did you enjoy the most this month? Why? 
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Turbo Pascal Toois 





plete with source code, sample programs 
and documentation will save you hours develop- 
ing and optimizing your programs! 


Routines are organized and documented under 
the following categories: bit manipulation, file 
management, MS-DOS support, sorting, string 
operations, arithmetic calculations, data com- 
pression, differential equations, Fourier analysis 
and synthesis, matrices and vectors, statistics, 
and much more! All source code is included. 


A detailed manual includes a description of the 
routine, an explanation of the methods used, 
the calling sequence, and a simple example. For 
MS/PC-DOS systems. 


Turbo Advantage Item #070 $49.95 


Two statistical packages in one! 


A library disk and reference manual 

Use these powerful statistical routines to build 
your applications. Routines include: ® statistical 
distribution functions ® random-number genera- 
tion ® basic descriptive statistics ® parametric 
and non-parametric statistical testing ® bivariate 
linear regression, multiple and polynomial 
regression. 


A demonstration disk and manual 

This package incorporates the library of routines 
into a fully functioning statistical program. Two 
data management programs are included to 
facilitate the storage and maintenance of data. 


Full source code is included. (For IBM PC’s and 
compatibles. Turbo Pascal version 2.0 or later, 
and PC-DOS 2.0 or later are required.) 


STAT Toolbox Item #050 $69.95 


his library of more than 220 routines, com- 


TURBO Display includes a menu driven form. 
processor, 30 Turbo Pascal procedures and func- 
tions to facilitate linking created forms to your 
program, and full source code and documenta- 
tion. For MS-DOS systems. 


Some of the TURBO Advantage: Source Code 
Libraries for Turbo Pascal routines are 
necessary to compile TURBO Display. 


Item #072 $69.95 


TURBO Display 










You'll find: 

e an extensive library 
of low-level routines 

¢ external sorting and searching 
tools, presenting a new database routine that 
combines the best features of the B-tree, 
B+ and B++ trees 

© window management, to help you create, sort 
and overlay windows 

e artificial intelligence techniques 

e mathematical expression parsers, offering two 
routines that convert mathematical expres- 
sions into RPN tokens 

® 4 smart statistical regression model that 
searches for the best regression model to 
represent a given set of data. 


All routine libraries and sample programs are 
on disk for MS-DOS systems, and over 800K of 
Turbo Pascal source code is included! 


Turbo Pascal 
Toolbook Item #080 $25.95 
Turbo Pascal Toolbook 

with disk Item #081 $45.95 


TURBO Complex provides procedures for perform- 
ing all the arithmetic operations and necessary real 
functions with complex numbers. Each procedure 
is based on predefined constants and types. By 
using these declarations the size of arrays are easily 
adapted. Each type declaration is a record with 
both a real and imaginary part. Use these pro- 
cedures to build more sophisticated functions in 
your own programs. 


TURBO Complex also demonstrates the usage of 
these procedures in routines for vector and matrix 
calculation with complex numbers and variables; 
simultaneous Fourier transforms; calculations of 
convolution and correlation functions; low-pass, 
high-pass, band- pass and band-rejection digital 
filters; and solving linear boundary-value 
problems. 


Source code and documentation is included. For 
MS-DOS systems. Some of the TURBO Complex 
routines are most effectively used with routines 
contained in TURBO Advantage. 


TURBO Complex Item #071 $89.95 
@eee00e0202002020000800808608686 
© TO ORDER: Return this coupon with your payment 
©@ to: M&T Books, 501 Glaveston Dr., Redwood City, CA 
© 94063. Or, Call TOLL-FREE 800-533-4372 Mon-Fri 
@ 8a.-m.-5p.m. In CA call 800-356-2002 
@ YES! Please send me 
@ {| | TURBO Advantage #070 $49.95 
@ [| TURBO Advantage Display 


s #072 $69.95 
@ | TURBO Advantage Complex 
@ #071 $89.95 


®@ |] STAT Toolbox #050 $69.95 
e (_] Turbo Pascal Toolbox # 080 $25.95 
with disk #081 $45.95 
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XOR CHAIN 
(continued from page 35) 


Anchor, the Item links, and prior and 
FICXT. 


Deleting an Item 

You need a way to delete an item of a 
list. Deleting comes down to fixing 
the things that point to an item so 
they point to other items instead. 
Once nothing points to it anymore, 
an item can be discarded. The dele- 
tion procedure in Example 2, page 36, 
deletes the next Item of the scan. If 
there is no next /tem, it does nothing 
(ergo, it correctly does nothing to an 
empty list). 

The item to be deleted is s->next. 
The first step is to get the address of 
its successor, which will take its 
place. It is obtained from its link field 
in the manner of GoFwd. 

Next you repair the predecessor of 
the deleted item. If it’s the head of the 
list, the anchor must be repaired; oth- 
erwise, the predecessor’s link field is 
adjusted to point to the deleted item's 
successor. 


The successor of the deleted item is 
then repaired. If there isn’t one, the 


deleted item was the tail of the list, 
and its predecessor becomes the new 
tail. 

You could empty a list with this 
loop: 


Associate(z, Test): 
ToHead(z); 
while (Not AtTail(z)) Delete(z); 


Although this procedure won't de- 
lete when the scan is AtTail, the tail 
item can nevertheless be deleted 
using: 


ToTail(z); StepBak(z); Delete(z); 


Earlier I said that any number of 
Scan structures could be associated 
with a list. Now that I’ve defined In- 
sert and Delete, I should perhaps 
modify that claim. What might the 
effect be on one Scan if Insert were 
performed via a different Scan of the 
same list? (Answer: not much—the 
new item might be missed by the 
other Scan.) 

What about Delete? 
(Answer: Catastrophe-the other Scan 
might step using the link word of a 
deleted, now-invalid Item.) 





at Programmer's Assistant 


C TOOLSET & 


UNIX-like Utilities for Managing 
C Source Code 


No C programmer should be without their 
assistant — C ToolSet. All of the utility programs 
are tailored to support the C language, but you 
can modify them to work with other languages 
too. 

Source code in standard K&R C is included; 
and you are welcome to use it with any compiler 
(UNIX compatible) and operating system you 
choose. 


12 Time Savers 
DIFF - Compares text files on a line-by-line 
basis; use CMP for byte-by-byte. Indispensable 
for showing changes among versions of a 
program under development. 
GREP - Regular exp.. ssion search. Ideal for 
finding a procedural call or a variable definition 
amid a large number of header and source 
files. 
FCHART - Traces the flow of control between 
the large modules of a program. 
PP (C Beautifier) - Formats C program files 
so they are easier to read. 
CUTIL - A general purpose file filter. 


Requires MSDOS and 12K RAM 





CCREF - Cross references variables used within 
a program. 

CBC (curly brace checker) - checks for pairing of 
curly braces, parens, quotes, and comments. 
Other utilities include DOCMAKE, ASCII, 
NOCOM, and PRNT. 

Source code to every program is included! 


Thorough User Support 
Text and Online 

C ToolSet documentation contains descriptions 
of each program, a listing of program options 
(if any), and a sample run of the program. 

On-line help gives you information on the 
programs and how to run them. Most of the 
programs respond to -? on the command line 
with a list of options. 


Call 800-821-2492 to order C ToolSet 
risk-free for only $95. 


Solution 
Systems * 
335-D Washington St.. 


Norwell, MA 02061 
(617) 659-1571 





CIRCLE 152 ON READER SERVICE CARD 


38 





Conclusion 

The C functions shown here form the 
basis of a package for handling dou- 
bly linked lists. These lists have sever- 
al advantages: because they are dou- 
bly linked, they can be traversed in 
either direction with equal ease, and 
insertion and deletion are simple and 
speedy operations. By packaging a 
list position as a single Scan structure, 
you make it convenient to track sev- 
eral list positions at once, as long as no 
deletions are allowed. 

There are disadvantages, of course. 
The greatest is that the only practical 
access to the list is from its ends; it 
isn't possible to enter it at the middle 
and then traverse forward or back- 
ward. (Traversal requires the ad- 
dresses of two logically adjacent 
items, which can’t be maintained 
outside the list itself in the presence 
of Insert or Delete.) Thus this list form 
can't be indexed for quick entry at 
intermediate points. 

Readers of an imaginative turn of 
mind might explore some other pos- 
sibilities. For instance, the structure 
treated here as a linear list could be 
wrapped around to make an endless 
ring. In a double-linked ring, Anchor 
might be eliminated in favor of a 
mandatory single Item. 


DDJ 


Vote for your favorite feature/article. 
Circle Reader Service No. 4. 


void Delete(s) struct Scan *S : 








}struct Item *i; 
if (AtCTail(s)) return: 
i = s—)next-—)link 
Xor s—)prior Xor s—)next:; 


if (AtHead(s) ) 

s-)a-)head =i: 
else 

s—)prior—)link Xor= (s-)next 
AOY i): 


if (i—==Nil) 
s-)a-)tail = s-)prior- 
else 





i—-)link Xor= {s-)next Xor s- 
)prior); 


DropItem(s-)next): 
s-)next =i; 





Example 2 A procedure to delete an 
item in a list 
a are gh | 
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FORTRAN PROGRAMMERS 


LCS ANNOUNCES F77L LAHEY FORTRAN VERSION 2.20 
WE JUST MADE OUR TOP RATED FORTRAN LANGUAGE SYSTEM BETTER. 


‘Tahey’s F77L FORTRAN is the compiler of choice. It’s definitely a 
‘Programmer’s FORTRAN,’ with features to aid both the casual and 
the professional programmer . . . F77L compiled the five files in a total 
of 12 minutes, which was 4 times as fast as MS FORTRAN and an 
astounding 6 times as fast as Pro FORTRAN...”’ 
























HERE ARE JUST A FEW OF THE REASONS 
WHY F77L IS THE COMPILER OF CHOICE: 
e Full Implementation of the © Clear and Precise 
ANSI 77 Standard English Diagnostics 
e Fast Compilation—outruns © Long Variable Names— 
everything on the market Up to 31 Characters 
¢ Powerful Multi-Featured ¢ COMPLEX*16, 
Source On-Line Debugger LOGICAL*1 and 
¢ Popular Extensions for easy § INTEGER*2 
porting of mainframe and e JEEE Standard 
mini computer programs Floating Point 
(Including NAMELIST) ¢ Compatibility with popular 
e Recursion—allocates local third party software 
variables on the stack e Unmatched Technical 
e Arrays and COMMONS Support with an on-line 
greater than 64K bulletin board 


NEW FEATURES WITH VERSION 2.20: 


¢ Cross reference and source listings 

e Allocation maps of COMMON variables and arrays 
e In-line comments 

e IMPLICIT NONE compiler option 

e Faster Execution 

e Source On-Line Debugger (SOLD) includes: 

Trace Execution; No Relinking required; 
On-screen Listing; No effect on code size 


Call about our New F77L development tools: 
Lahey Profiler Mathematical Functions Library 





It is more than just features that make F77L an outstanding 
product; it is the years of experience behind the software. At 


Lahey Computer Systems, we have been developing 
FORTRAN compilers since 1967 and we are committed to 
keeping F77L the industry leader. 


When PC Magazine selected our version 1.35 as the Editor's 
Choice among PC FORTRANs, we were pleased but not 
completely satisfied—we knew we could improve the 
product. F77L Version 2.20 increases our lead over the 
competition. F77L’s precise diagnostics, advanced debug 
package, helpful user screens and comprehensive manual 
make it a complete and easy to use high productivity tool. 


When evaluating any software package, an important factor 
to consider is the value of your time. F77L saves you time and 









Overlay Linker 


—Editor’s Choice PC Magazine 








money the moment you start using it. Our FORTRAN 
Language System has the key features you need to increase 
productivity and get the job done. Other PC FORTRANS may 
be cheaper than F77L, but none are less expensive to use. 


F77L—THE PROGRAMMER’S FORTRAN 


Price: $477.00 
System Requirements: MS-DOS or PC-DOS (2.0 or greater), 
256K. math coprocessor (8087-80287) 


TO ORDER OR FOR MORE INFORMATION: 


702-831-2500 


Lahey Computer Systems, Inc. 
P.O. Box 6091, Incline Village, NV 89450 
Telex: 9102401256 


International Representatives: 


Canada: Barry Mooney & Assoc.. Tel. (902)6652941 ¢ England: Grey 


Denmark: Ravenholm Computing. Tel. (02)887249 © Australia: Comp. Transitions, 


MS-DOS & MS FORTRAN are trademarks of Microsoft Corpo 
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Matter Ltd. Tel. (0364)53499 © Switzerland: DST Comp. Services. Tel. (022)989188 


Tel. (03)5372786 @ Japan: Microsoftware Inc.. Tel. (03)8138222 


ration. Pro FORTRAN refers to IBM PC Professional FORTRAN by Ryan McFarland 
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THE PROGRAMMERS SHOP 





helps save time, money and cut frustrations. Compare, evaluate, and find products. 





I ere ad 


UI Programmer - Quickly generate 
dBASE User Interfaces, prototypes. Use 
supplied templates or create own. 

Pop-up help, bounce bar menus, screen 
forms. IT, II], FoxBASE + , Quicksilver, 
Clipper. PCS 295 


Al-Expert System Dev't 


Arity Combination Package PC $ 979 


System - use with C MS $ 229 
SQL Dev’t Package MS $ 229 
Auto-Intelligence PC $ 749 
Experteach - Powerful, samples PC $ 349 
Exsys PC 3:309 
Runtime System PC $ 469 
Insight 2+ MS $ 379 
Intelligence/Compiler PC $ 749 
T.I. - PC Easy PC $ 435 


Personal Consultant Plus PC $2589 
Personal Consultant Runtime PC $ 85 
Turbo Expert-Startup-(400 rules) PC $ 129 

Corporate (4000 rules) PC $ 359 


Al-Lisp 


Microsoft MuLisp 85 MS $ 159 
PC Scheme LISP - by TI PC5. SS 
TransLISP - learn fast MS $ 89 


TransLISP PLUS 
Optional Unlimited Runtime MS $ 150 
PLUS for MSDOS MS $ 179 
Others: IQ LISP ($239), IQC LISP ($269) 


Al Prolog 


APT - Active Prolog Tutor - build 


applications interactively PC $°205 
ARITY Prolog - full, 4 Meg 
Interpreter - debug, C, ASM — PC _ $ 229 


COMPILER/Interpreter-EXE PC $ 569 
Standard Prolog MS $ 77 
MacProlog Complete MAC $ 269 
MicroProlog - Prof. Entry Level MS $ 85 
MicroProlog Prof. Comp./Interp. MS $ 439 


MPROLOG P550 PC: 3.175 
Prolog-86 - Learn Fast MS $ 89 
Prolog-86 Plus - Develop MS $ 229 


TURBO PROLOG by Borland PC $ 69 


Editors for Programming 





BRIEF Programmer’s Editor PC Call 
EMACS by UniPress Source: $929 $ 299 
Epsilon - like EMACS, full 

C-like language for macros. PC $ 149 
KEDIT - like XEDIT Pes. 99 
Lattice Screen Editor - multiwindow, 
multitasking Amiga $ 89 MS $ 109 


Micro Focus Micro/SPF PS 239 
PC/EDT - macros PC $ 229 
PC/VI - by Custom Software MS $ 109 
Personal REXX PC $ 99 
PMATE - power, multitask PC'S: 4119 


Note: All prices subject to change without notice. 
Mention this ad. Some prices are specials. Ask about 
COD and POs. Formats: 3" laptop now available, plus 200 others. 
UPS surface shipping add $3/item. 





a, HOURS es 


8:30 AM-8:00 PM EST. 









Compare Products 
Use Product Specialists 


The Programmer's Shop is much more than 
the supplier of the largest selection of 
programmer's software. Trained program- 
ming consultants will answer your questions. 
Ask “product specialists’ about Cross 
Assembler, Translators, Debuggers, or 
compilers. 


Our Services: 
* Programmer’s Referral List * Dealers Inquire 
* Compare Products * Newsletter 
* Help find a Publisher * Rush Order 
« Evaluation Literature FREE * Over 700 products 
* BBS-7 PM to7 AM 617-826-4086 + National Accounts Center 


-C Language-Compilers 


AZTEC C86 - Commercial PC $499 
C86 PLUS - by Cl MS Call 
Datalight C - fast compile, good code, 

4 models, Lattice compatible, Lib 


source. Dev’rs Kit PC $ 77 
Datalight Optimum - C MS $ 99 

with Light Tools by Blaise PC $168 
Lattice C - from Lattice MS $275 

Let’s C Combo Pack PC $ 99 

Let’s-C PC’.$.59 
Microsoft C 4.0- Codeview MS $275 
Uniware 68000/10/20 Cross 

Compiler MS Call 
Rex - C/86 by Systems & 

Software - standalone ROM MS $695 
Wizard C MS $299 

Rom Development Package MS $259 


C Language-Iinterpreters 


C-terp by Gimpel - full K & R MS $229 
C Trainer - by Catalytix PC $ 89 
INSTANT C - Source debug, 

Edit to Run-3 seconds, .OBJs MS $379 


Interactive C by IMPACC Assoc. PC $209 
Run/C Professional MS $159 
Run/C Lite MS $ 89 
C Libraries-General 
Blackstar C Function Library PC $ 79 
C Essentials - 200 functions PC ox tS 
C Function Library MS $109 
C Tools Plus (1 & 2) - Blaise PC $125 
C Utilities by Essential PC $129 


C Worthy Library - Complete, machine 


independent MS $249 
Entelekon C Function Library PC $119 
Entelekon Superfonts for C PC $ 45 


Greenleaf Functions-portable, ASM $139 
LIGHT TOOLS by Blaise PC $ 69 


FEATURE 


Personal COBOL by MicroFocus - 
Develop, test, debug, execute 
ANSI’74 code. Full-screen editor, 
syntax checker, Animator, forms/ 
screen generator, help. Compatible 
with Level II. PC $169 


We support MSDOS (not just compatibles), PCDOS, Xenix-86, CPM-80, Macintosh, Atari ST, and Amiga. 


Call for a catalog, literature, 
advice and service you can trust 
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NET-TOOLS - Access NETBIOS- 
compatible network systems from 
Microsoft C, Pascal, FORTRAN, 
Assembler, Lattice C. Full Source, 

No Royalties. PC $129 


dBASE Language 
Clipper compiler PC Call 
dBASE II MS $329 
dBase III Plus PC $429 
dBASE III LanPack PC $649 


FoxBASE+ - single user 
Quick Silver by Word Tech 


dBASE Support 


dBase Tools for C 
dBrief with Brief 





DBC ISAM by Lattice MS Call 
dBx Translator to C MS $319 
dFlow - flowchart, xref MS Call 


Documentor - dFlow superset MS Call 
Genifer by Bytel-code generator MS $299 
QuickCode III Plus MS $249 


Fortran & Supporting 


50:More FORTRAN rt S99 
ACS Time Series MS $399 
Forlib+ by Alpha MS $ 59 


MS Fortran - 4.0, full ’77 MS $279 
No Limit - Fortran Scientific PC $115 
PC-Fortran Tools - xref, pprint PC $179 
RM/Fortran MS Call 
Scientific Subroutines - Matrix MS $139 





Multilanguage Support 


BTRIEVE ISAM MS $185 
BTRIEVE/N-multiuser MS $455 
Flash-Up Windows PC $79 
GSS Graphics Dev't Toolkit PL 3373 
HALO Graphics PC $209 


Development Package MS $395 
Informix - by RDS PC $639 
Informix 4GL-application builder PC $789 
Informix SQL - ANSI standard PC $639 
Opt Tech Sort - sort, merge MS $ 99 
PANEL MS $215 
Pfinish - by Phoenix MS $229 
PolyLibrarian by Polytron MS $ 79 
PolyBoost - speed I/O, keyboard PC $ 69 
PVCS Corporate-source control MS $319 


QMake by Quilt Co. MS $ 85 
Report Option - for Xtrieve MS $109 
Screen Sculptor PC S.95 
SRMS - source control MS $109 
VXM - multi-env. link MS $195 


Xtrieve - organize database MS $199 
ZAP Communications- VT 100 PC $ 89 


FEATURE 


Turbo C by Borland. ANSI Compiler 
supports 6 models including tiny 
and huge, has floating point, 
interactive editor, Make. Speed 


development. PC 5. .69 





“[ have been pleased with your catalog selection, the 
knowledge of your telephone answering staff, and the 
promptness of your service. | have every wish to be- 
come a continuing customer of The Programmer's 
Shop. 





Carl C. Rollo 
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provides complete information, advice, guarantees and every product for Microcomputer Programming. 








WANT TO ADD 


ep ERE GS SG WINDOWS, ICONS, FONTS, 
Oa a ee Ca Oa : FAST GRAPHICS, DIALOG BOXES, 
Go eee PROCESS MANAGEMENT, AND 
DEVICE INDEPENDENCE 


TO YOUR IBM PC PROGRAMS? 


if you have ever wished that you could develop stunning Macintosh-like programs on the IBM PC without 


« 
B Ue First the overhead of an enormous operating environment like Windows or GEM, then you need the 


SYNERGY DEVELOPMENT TOOLKIT, from Matrix Software. 


Using a memory resident runtime module only 20K in size (versus as much as 300K for Windows), you 
can develop applications with: overlapped and tiled windows; pull-down menus with half intensity options 
and automatic sizing; fast graphics function calls to draw shapes, lines, boxes, and create intricate fill 
patterns in both regular and irregular areas; have full device independence (drivers for numerous devices, 
including CGA, EGA and Hercules are included); sophisticated text input and output, with fonts in different 
styles and sizes; full keyboard support (your programs won't need a mouse!) and powerful mouse support; 
and process management calls to efficiently manipulate system resources. 


Automatic Knowledge 


Acquisition System 
q i Li Es A The Toolkit has gateways to support the following languages: 
* Turbo Pascal * Microsoft & Lattice C * Basic 


* IBM/MS Pascal * Macro Assembler ¢ dBASE II/IIl Compilers 


In addition, the Toolkit includes a powerful collection of tools including a graphics resource editor for 
developing your own icons and fonts. 


List: $990 Our: $749 


NEW! The Toolkit also includes a free copy of Synergy Layout, a revolutionary software 
development tool that dramatically increases your productivity by actually generating bug-free source code 
in Macro, C, and Turbo Pascal. 


INteligenceWare. rc. 


9800 S. Sepulveda Bivd. Suite 730 
Los Angeles, CA 90045 List: $395 


Our: $349 
Telephone: [213] 417-8896; Fax [213] 41 7-8897 $ 
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For further information, contact Matrix Software at [617] 567-0037. 
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SoftProbe II/TX, a High-Level Solution 
for Embedded System Debugging. 












Now quickly and easily develop 
multi-tasking applications on your PC! 





SoftProbe 





Embedded 


Now get the speed, power and flexibility of MUMPS in a truly 
concurrent processing environment with COMP Computing 
Standard MUMPS (CCSM). 


CCSM provides the programmer with these benefits: 


* Save time and money by writing Applications in 1/3 to 1/45 
the amount of code. 


* Fast data access with B-Tree File Structure and Automatic 


disk caching. eee 


BENEFITS 






































* Unlimited program size and variable space with advanced = weutee Lane) Debus ‘i ae Op geal Teer 
virtual memory system. @ Supports High Level ae 
Language Data Types @ Debug at High Level ¢ 


* 100% portable from micros to minis to mainframes. 
* Easily write multi-tasking and multiuser applications. 
And with MUMPS, all you need to do to start a background 


process is: "JOB “ROUTINE”. No memory allocation, no table 
set-up, no hassles; the system handles everything. 


@ C-like Command Language Language Level 


with Expression Evaluation @ Mixed Language Debugging 
and Flow Control Facilitates Firmware Testing 


@ Displays Program Execution LANGUAGE SUPPORT 


aeam,ii@#i tae, aman 4.8 2A 


CCSM is also available in a multi-tasking version for the Hane NOY Lereedes ee 2 
Macintosh. @ Friendly User Interface with Wis , 
; Macros and On-line Help a SYSTEMS & 

Multi-Tasking: List- $149.95 Ours - $129 TARGET SYSTEM SOFTWARE : : 
Multiuser: List - $450.00 Ours - $369 eS ane Garon ane. a ee 

86/1 -11, ; 

For a demonstration diskette of CCSM, send two dollars to the address below. . Soa ae < Oker (714) 241-8650 FAX (714) 241-0377 : 
@ |BM PC or Compatible. List: $750 Ours: $695 | 


MGlobal  ». 1-800-257-8052 


SoftProbe is a registered trademark of Systems & Software, Inc. 
Houston, Texas 7/006 In Texas: 1-713-529-2576 


IBM PC is a registered trademark of International Business Machines Corp. 
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: 1 8006 THE PROGRAMMER’S SHOP" 
Call Today for FREE detailed o = ei cone ORCI EL aS cu lecce ue usa 
information or try Risk-Free for 31 days. HOURS: 8:30 A.M. - 8:00 P.M.E.S.T. 5-DPond Park Road, Hingham, MA 02043 


Mass: 800-442-8070 or 617-740-2510 2/87 


ARTICLES 


An Extended 





he IBM PC and its compatibles 
4 ko two serial ports— 

COM1 and COM2—in a wide 
variety of configurations. Four basic 
functions are provided—data in, data 
out, set configuration, and read sta- 
tus. What the IBM PC does not do is 
walk and chew gum at the same 
time. If your disk is seeking and more 
than one character arrives, it is lost. 
This article describes what I think a 
COM port driver should do, discusses 
some design rules and implementa- 
tion pitfalls of device drivers, and 
presents a device driver modification 
with the following features: 


¢ buffered input—no lost data 

einput flow control—XON/XOFF or 
control lines 

¢ output flow control—control lines 

¢ works with existing software 

¢ removal—without a reboot 

¢ 19,200- and 38,400-baud operation 

* type-ahead with CRTs 

* upward compatible 


What’s Wrong? 

During the first part of my career asa 
software engineer, I was spoiled by 
minicomputer operating systems 
that were good at capturing serial 
data. More recently, I had the plea- 
sure of working with Unix—a plea- 
sure, that is, in all aspects except cap- 
turing serial data. My introduction to 
Unix was on a PDP-11/44 that could 
miss characters from serial data in- 
put at 300 baud on a busy day. Every 
time my job required monitoring se- 
rial data, it was a bad day. Then one 
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COM Port Driver 


by Thomas A. Zimniewicz 


What the IBM PC 
does not do 


is walk and chew gum 
at the same time. 





day I noticed an idle IBM PC that had 
nothing to do (no other users to get in 
my way) except perhaps collect my 
data. It would be simple—just getchar 
from COM1 and putchar to disk, and 
with no other work, the IBM PC could 
certainly handle at least 9,600 baud. A 
while later it was working, but (and 
there always is one) it seemed that 
there were gaps in the data. (I discov- 
ered later that the gaps coincided 
with the flashing of the disk light.) I 
gave up. Much later I found myself 
using an IBM PCa little. I didn’t like the 
keyboard and monitor, so I hooked 
up my CRT to a COM port and then 
found there was no type-ahead. I got 
mad enough to fix it. 

So, what were my goals? The main 
thing was buffered interrupt-driven 
input to allow type-ahead and high- 
speed serial data capture. I wanted to 
use these features with existing pro- 
grams, too. This meant the solution 
had to be fully compatible and some- 
how get between programs and the 
hardware. I had to modify PC-pOsS 
and/or the BIOS in a way that was 
transparent to an application-level 
program. In this sea of bad news, 
there was one very bright light—ev- 
erything that PC-DOS and the BIOS 
lacked in capability, it made up for in 
flexibility. The hooks were there, de- 
vice drivers could be installed, inter- 








rupts could be stolen. If the new COM 
port software were installed on an 
IBM PC, then all well-behaved pro- 
grams (those that used PC-DOS or the 
BIOS instead of directly accessing the 
hardware) would automatically gain 
the new features. Several methods of 
input/output flow control were pos- 
sible and the hardware could handle 
higher baud rates ... I sure do get 
carried away easily. 


Can It Be Fixed? 

The IBM PC actually has two levels of 
software to handle the COM ports. 
The high-level code is part of PC-DOS 
and is loaded into RAM during the 
boot-up of PC-DOS. This code handles 
those functions that do not depend 
on the details of the hardware and 
provides an interface to the COM 
port. This level is called a device driv- 
er and is accessed by high-level PC- 
DOS operations such as those that 
open and read serial data system 
calls. The low-level code is hardware 
specific and is contained in ROM. This 
code is specific to the operation of 
the COM port hardware. This level is 
called the BIOS and is called by the 
device driver to perform operations 
specific to a COM port, such as setting 
the baud rate or getting a character 
from the port hardware. 

When I started to investigate the 
job at hand, I suspected that a whole 
new device driver would be re- 
quired. The good news was that PC- 
DOS faithfully used the BIOS for all 
COM port operations. This meant that 
all I needed to do was to write a re- 
placement for the parts of the BIOS 
that handle the COM port. For a while 
the job looked really easy. I consid- 
ered stealing the software interrupt 


Dr. Dobb’s Journal, June 1987 


(int 14h) that is used to access the BIOS 
COM port code, going to my code for 
operations that needed changing, 
and otherwise just passing the job off 
to the BIOS. Unfortunately, I had to 
abandon this easy way out because 
of negative side effects caused by al- 
most every BIOS function. For exam- 
ple, the BIOS ‘‘send a character” func- 
tion sets the control signals in ways 
that are incompatible with some of 
the required flow control modes. 

To illustrate some of the technical 
issues of handling a COM port, let's 
take a simplified look at the job of 
reading serial data. When the BIOS 
call is made to read a character, it 
loops until a character arrives at the 
port or a counter expires. Either the 
character or a time-out status is re- 
turned. Most programs and PC-DOS ig- 
nore the time-out and try again. The 
COM port hardware has only a single 
character buffer. If the buffer in the 
COM port hardware overflows while 
the processor is doing anything else, 
it is lost. The solution to these lost 
characters is to have the COM port 
generate an interrupt when a char- 
acter arrives and have the interrupt 
handler save the character in a buff- 
er until the program gets around to 
needing it. The code might look like 
this: 


COM port interrupt handler 
read character 
if buffer count < buffer size 
put character in the buffer 
increment buffer count 
else 
set overrun error 


read character routine 
loop 
if buffer count > 0 
decrement buffer count 
take character and return it 
if timer expired 
return time-out status 
endloop 


If this algorithm were implement- 
ed, it would probably pass all its ini- 
tial tests. Then, when you least ex- 
pected it, your input would be 
garbled and no errors would be re- 
ported. What you have here is your 
classic race condition. Imagine the 
buffer is exactly full when the read 
routine is called and the count is dec- 
remented to indicate room in the 
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buffer. Immediately after the count 
is decremented but before the char- 
acter is removed, an interrupt oc- 
curs. The handler puts another char- 
acter in the buffer that is really still 
full. Things go downhill from here. 
This type of error is an easy trap for 
beginners (and sometimes a big em- 
barrassment for pros). One possible 
fix is to disable interrupts during crit- 
ical portions of the read character 
routine. (Note that COM port inter- 
rupts are automatically disabled by 
the hardware during the processing 
of a COM port interrupt; there is no 
need to worry about reentering the 
handler itself). This works, but it has 


I wanted 
buffered input 
to allow type-ahead 
and high-speed 
serial 
data capture. 





serious drawbacks. If interrupts are 
off for too long, serial data (and other 
real-time events) can be lost. The best 
solution is to order the events in the 
read character routine so that an in- 
terrupt cannot hurt it. If interrupts 
must be disabled, try to limit the du- 
ration. To fix the bug above, just take 
the character from the buffer before 
decrementing the buffer count. 


Code Walk-Through 

Excom is functionally equivalent to 
the BIOS int 14h COM port handler 
with three significant enhance- 
ments—it provides interrupt-driven 
buffered input and has an extended 
set of configuration parameters, in- 
cluding flow-control selection and 
higher baud rates. Excom is made up 
of three major sections—the COM 
port data input interrupt handler, 
the replacement for the BIOS int 14h 
handler, and the code to install and 
initialize excom. A problem exists in 
trying to describe excom, unlike a 
well-written application in which 
functions can be isolated to a single 
routine or group of routines, because 
its structure dictates that many of its 
capabilities are distributed through- 


out the code. I will first take you on a 
quick trip through the listing (Listing 
One, page 64) to show its structure 
and then later describe several of ex- 
com's more interesting functions. 

Excom is a .COM program that is 
run once before the COM ports are 
needed and that uses the terminate- 
and-stay-resident feature of PC-DOS to 
remain active as long as is needed. If 
required it can be removed, restor- 
ing the interrupt vectors to their pre- 
vious values and freeing memory. 
Two requirements for a .COM pro- 
gram are to have all segment regis- 
ters pointing to the start of the pro- 
gram’s memory space and to have an 
executable origin of 100h to make 
room for the program header. Exe- 
cution starts at location 100h, which 
is a jump to the initialization code. A 
few constants are then defined, the 
first three of which have to do with 
the buffer size and can be modified 
to tune the excom buffers to your 
needs. The Microsoft assembler sup- 
ports a concept similar to structures 
in C. A structure called pcb (port con- 
trol block) is defined to describe the 
dynamic state of a port. It is defined 
as a structure so that one piece of 
code can handle two ports just by set- 
ting a register to point to the appro- 
priate structure. Storage for two port 
control blocks is then allocated. 
Space is reserved to store the old in- 
terrupt vectors required for the pro- 
gram to remove itself. Next the baud 
rate table contains ‘‘magic’’ numbers 
required to set the UART’s baud rate 
clocks. Note that the last two entries 
are used for the excom extended 
baud rates. 

The first executable code is the 
COM port hardware interrupt han- 
dler. The label intOB is the entry 
point for int OBh, COM2, whereas 
intOC is for int OCh, COM1. Each entry 
sets ds:si to point to the pcb associat- 
ed with its port and enters common 
code. The rest of the routine reads 
the character, puts it in the buffer, 
takes any action required for flow 
control, and exits. There is no analo- 
gy to this code in the BIOS. The sec- 
ond code segment is the int 14h han- 
dler, which performs five distinct 
functions corresponding to the value 
in the register ah. The functions are 
initialize port, transmit a character, 
receive a character, get port status, 
and extend initialization. At the 
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ISN’T IT A PITY... 
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FILE HANDLER 









Performance and Portability 


For all the time you devote to developing 
your new programs, doesn't it make sense to 
insure they perform like lightning and can be 
ported with ease? 







c-tree: Multi-Key ISAM Functions 
For Single User, Network, & Multi 
Tasking Systems 


Based on the most advanced B+ Tree routines 
available today, c-tree gives you un- 
matched keyed file accessing performance and 
complete C Source Code. Thousands of profes- 
sional C programmers are already enjoying 
c-tree’s royalty-free benefits, outstanding 
performance, and unparalleled portability. 










Only FairCom provides single and multi-user 
Capabilities in one source code package, 
including locking routines for Unix, Xenix, and 
DOS 3.1., for one low price! In addition, 
c-tree supports fixed and variabie record 
length data files; fixed and variable length key 
values with key compression; multiple indices 
in a single index file; and automatic sharing of 
file descriptors. 









r-tree: Multi-Fle Report Generator 


r-tree builds on the power of c-tree 
fo provide sophisticated, multi-line reports. 
Information spanning multiple files may be 
used for display purposes or to direct record 
selection. You can develop new reports or 
change existing reports without programming 
or recompiting and can use any text editor to 










Everything Isn’t As 


Accommodating As 
c-tree / r-tree’ 


Complete C Source Code & No Royalties! 


Xenix is a registered trademark of Microsoft Corp. Unix is a registered trademark of AT&T 













REPORT GENERATOR 


create or modify r-tree report scripts 
including the complete report layout. At your 
option, end users may even modify the report 
scripts you provide. 


Unlimited Virtual Fields; Automatic File 
Traversal 


r-tree report scripts can define any number 
of virtual fields based on complex computational 
expressions involving application defined data 
objects and other virtual fields. In addition, 
r-tree aufomatically computes values 
based on the MAX, MIN, SUM, FRQ, or AVG of 
values spread over multiple records. r-tree 
even lets you nest these computational func- 
tions, causing files from different logical levels 
fo be automatically traversed. 


Unlike other report generators, r-tree allows 
you fo distribute executable code capable of 
producing new reports or changing existing 
reports without royalty payments, provided the 
code Is tied to an application. Your complete 
source Code also includes the report script 
interpreter and compiler. 


How To Order 


Put FairCom leadership in programmers utilities 
fo work for you. Order e-tree today for 
$395 or r-tree for $295. (When ordered 
together, r-tree is only $255). For VISA, 
MasterCard and C.0.D. orders, call 314/445- 
6833. For ¢- tree benchmark comparisons, 
wrife FairCom, 2606 Johnson Drive, Columbia, 
MO 65203. 
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COM PORT DRIVER 
(continued from page 43) 


end of excom is the initialization. 


This is the code that runs only when 
excom is being installed. Initializa- 
tion starts by releasing the memory 
for excom’s copy of the environ- 
ment, which is not used. The body of 
the initialization uses PC-DOS calls to 
get the old interrupt vectors and 
then install the three new interrupt 
handlers. The interrupts that are 
thus stolen are 0Bh (COM1 hardware), 
OCh (COM2 hardware), and 14h (BIOS 
COM port calls). Then the excom COM 
port data structures are initialized. 
This initialization code is at the end 
so that it is not kept as part of the resi- 
dent code. Initialization ends with 
the PC-DOS call to make everything 
before the initialization code stay 
resident. 


Key Functions 

The BIOS does COM port input by 
waiting for a character to arrive. 
Even though it is not used, the IBM PC 
has all the hardware required to gen- 
erate an interrupt when a character 
arrives. This capability is activated 
by changing the interrupt vector (a 
RAM location) to point to the appro- 
priate handler (see lines 555-592 of 
Listing One). Now the vectors are set 
up, but because the BIOS doesn’t use 
COM port interrupts, the hardware 
has not been initialized to generate 
interrupts. Two separate pieces of 
hardware have to be initialized— 
first the COM port hardware (an 8250 
UART) has to be programmed to gen- 
erate interrupts and then the inter- 
rupt controller (an 8259) has to be set 
to allow the interrupt to be sent on to 
the CPU. I expected this to be a simple 
flip through the data sheets and a 
dozen lines of code. It didn’t work— 
no interrupts were generated. After 
much pain, I discovered that a spare 
output called OUT2 on the UART was 
used to gate the interrupt signal from 
the UART. I have no idea why. I then 
asserted OUT2 on the UART and voi- 
/a—interrupts (see lines 290-295). 
When an interrupt does occur, the 
CPU stops what it’s doing and jumps 
through the appropriate vector—in 
this case to intOB or intOC (lines 73- 
158). The interrupt handler then 
reads the character, which resets the 
interrupt status in the UART and 
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sends an interrupt complete com- 
mand to the interrupt controller be- 
fore returning. 

The BIOS port status request simply 
reads the two UART status registers 
and returns them to the caller. One 
register is called the line status and 
contains bits for receive errors, re- 
ceive data ready, time-out, and trans- 
mit ready. The other is called mo- 
dem status and has the UART's 
control lines. When characters are 
transmitted or received, the ah regis- 
ter returns the line status. When a 
port is initialized or status is request- 
ed, ah is returned as above and al re- 
turns the modem status. In excom in- 
put characters are stored in a 
circular buffer as they are read from 
the UART and are then removed from 
the buffer when a character read 
takes place. This presents a dilemma 
for excom because some status bits 
are associated with the received 
character whereas others are really 
UART status. The solution is to have 
the interrupt handler read the status 
associated with receive characters 
and buffer both character and status 
together. Then when a status is need- 
ed and there are characters in the 
buffer, the status associated with in- 
put characters is taken from the next 
character in the buffer. The rest of 
the status is taken directly from the 
UART (see lines 429-457). This ap- 
proach is not always perfect, but ex- 
com has been used successfully with 
many port handling packages, in- 
cluding COMMAND.COM. 

One of the major goals for excom 
was to provide configurable flow 
control for input data. The objective 
of flow control is to signal the source 
of the data to stop sending when the 
buffer is getting full (see lines 96-120). 
Then, when the buffer is emptied a 
bit, the sender is told to resume send- 
ing (see lines 394-409). The exact 
number of characters in the buffer 
when input is stopped and started is 
configurable (lines 16-18). Having the 
stop and restart values be different 
by a few characters tends to mini- 
mize the number of times the data is 
stopped and restarted. The actual 
mechanisms used to tell the sender to 
stop are any combination of DTR 
(data transfer register), RTS (request 
to send), and XON/XOFF (Control-S/ 
Control-O). DTR and RTS are turned 
off as the buffer fills and turned back 
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on when rcom becomes available. 
Control-S is transmitted as the buffer 
fills, and Control-O is transmitted 
when room becomes available. I al- 
ways thought that RTS was used as 
described by its name, but I’ve seen 
others use it for input flow control. It 
was easy to add and it didn’t seem to 
do any harm, so I used it for input 
flow control, too. Add to this arsenal 
the ability to cross a few wires in a 
cable, and almost any situation is cov- 
ered—except, of course, the sender 
that ignores your attempts. This is 
where excom shines—interrupts 
and big buffers provide great power. 
Data can be copied from a COM port 
to a floppy on a lowly old 4.77-MHz 
IBM PC at 9,600 baud without missing 
a character. To complete the picture, 
I also added output flow control. The 
BIOS requires that both DSR and CTS 
be set before a character can be sent. 
Excom can be configured to ignore 
either or both of these signals. 

In order to be useful, excom had to 
be upward compatible with the BIOS 
int 14h. The area of extended initial- 
ization options presented some spe- 
cial problems. There are no unused 












ULTITASKING 


bits in the BIOS set configuration com- 
mand. Therefore I had to add a new 
command—int 14h with ah having 
the values from 0 to 3 were already 
used, so ah = 4 was the obvious 
choice (lines 460-499). The problem 
was that the old initialization—ah = 
0—included the baud rate and the 
new initialization could also specify 
baud rates not included in the BIOS. 
The obvious solution was to require 
that the BIOS initialization occur be- 
fore the extended initialization. If ex- 
com was to be used with existing 
software, though, this restriction 
was impractical. The actual solution 
was to have excom ignore the baud 
rate in the BIOS initialization if the ex- 
tended initialization had been used 
to set a nonstandard baud rate (lines 
304-306). Thus, you set the baud rate 
to 19,200, start your existing soft- 
ware, and a BIOS initialization call is 
made, but excom ignores the baud 
rate. Another concession to upward 
compatibility is that the extended op- 
tions are relative to the BIOS defaults. 
Excom allows DTR input flow control 
to be enabled, whereas output CTS 
flow control can be disabled. 
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TimeSlicer is a linkable library of C functions to create multitasking 
and real-time programs at the application level rather than 
interfacing with the operating system. 


e No limit to number of tasks that can be run concurrently. 

e Tasks can be created, suspended or terminated at run-time. 

e Highly efficient — 10,000 context switches/second; 

80 micro seconds interrupt latency. 

e Supports large and small memory models; preemptive and non- 
preemptive modes; waking up of tasks to optimize special event 
processing; and interrupt service routines written entirely in C. 

e Extensive intertask communication capability. 
e Optimizes processor usage transparently. 

e Includes examples programs with source code. 
e Compatible with Lattice C, Microsoft C, 
ADVANTAGE C++ and assembly language. 
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COM PORT DRIVER 
(continued from page 45) 


Not All Is Gold 
Along the way from the problem to 
the solution, there were many little 
struggles, one of which may be of in- 
terest. The rest are too embarrassing 
to put into print. 

While first using excom, I ran into 
a strange problem. I have a home- 
made shell that reads the keyboard 
(CRT hooked to COM port) by calling 
int 14h directly. I ran a program that 
did CRT output via PC-DOS but did not 
read any keyboard characters. While 
it was running, I typed a command 
ahead. When the program stopped, 
my type-ahead was echoed minus 
the first character. This was early in 
my use of excom, so I assumed a bug 
in excom. Ignoring the problem, I 
continued what I was doing. Some 
time later I ran an interactive pro- 
gram that used PC-DOS for keyboard 
inputs, and my lost character from 
20 minutes ago appeared on the 
screen as the first character echoed. 
Wow! At first I passed it off as a bug 
in excom’s input buffer and a coinci- 
dence. It happened again! I consid- 
ered a Career as a crossing guard. 

You may have noticed that I de- 
scribed the exact way in which the 
above programs read their input— 
that was the key to understanding. 
PC-DOS makes a feeble attempt to do 
some input buffering, and when PC- 
DOS calls int 14h to transmit a charac- 
ter to the port, a status is returned. If 
a data ready is indicated, PC-DOS does 
a data read and saves the character 
for later. PC-DOS only stores one char- 
acter in this way as far asI can tell. So 
my type-ahead was eaten by PC-DOS, 
to be provided to the next call to PC- 
DOS for a character. Beware of mix- 
ing PC-DOS and BIOS character reads! 


Anything Left to Do? 

Of course there is! The two questions 
I’ve heard most often as a software 
engineer are ‘‘When will the code be 
complete?’ and “How many more 
bugs are there?’ The answers have 
always been the same: ‘‘About a 
week or two” and “Three.” The an- 
swers are the same here. 

If you put a file on a floppy and 
enter the command type file, you 
will notice a flip-flop of data scrolling 
by and disk activity. This is because 
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the BIOS waits for both the disk and 
the display. Excom has input buffer- 
ing to prevent loss of data. Output 
buffering won't fix any problems, 
but it will speed up data output in the 
case when the source of the data is a 
slow device. If excom had output 
buffering, it would take the charac- 
ters faster than they were actually 
being transmitted. Thus PC-DOS 
would think a block of data had been 
sent and go to the source for more 
while excom was still sending data 
out of its buffer. The flow would be 
limited by making PC-DOS wait when 
excom’'s output buffers were full. 
Earlier I mentioned that excom 


An 
interesting 
possibility 
with excom 

is nesting 
several 
invocations. 


can work with any well-behaved 
program. What about the naughty 
ones? At work, I use an old version of 
CrossTalk that steals the COM port in- 
terrupt and doesn’t put it back. I 
don't know if this has been fixed. Are 
you listening CrossTalk folks? Upon 
return from CrossTalk, excom has 
lost the COM port interrupt. One pos- 
sible solution would be to run Cross- 
Talk from a batch file that removed 
excom, ran CrossTalk, and then rein- 
stalled excom. The problem with this 
is that you must identify and fix all 
offenders. It may be possible for ex- 
com to examine its environment for 
damage and perform repairs. I’m 
sure this would not cover all such 
problems, but I think all of them that 
I am currently aware of could be 
fixed. Self-repairing programs— 
maybe I should do an article on 
‘Core Wars.”’ 

When | use my shell on a COM port 
with or without excom installed, 
XON/XOFF output flow control seems 
to work. There must be problems. I 
have heard of requests to provide 
XON/XOFF in relation to printer driv- 





ers and so on. In any case, because PC- 
DOS may not see characters until 
some time after excom does, any PC- 
DOS attempt at XON/XOFF output flow 
control is hampered by excom. This 
implies that XON/XOFF output flow 
control should be added to excom. 

Because the IBM PC does not have 
memory management hardware, 
having a memory-resident program 
occupy the wrong location can cause 
problems. When a shell runs a pro- 
gram, it is loaded just after the shell. 
If the program remains resident 
upon its termination, the shell is in a 
squeeze. The shell cannot get more 
memory to hold shell variables, envi- 
ronment, temporary buffers, and so 
on. A desirable extension to excom 
would be to have it relocate itself to 
the end of RAM and remain resident 
there. 

Excom has a bug! Software is no 
fun if its perfect. Control-S and Con- 
trol-O are sent without any regard to 
the UART being ready or the control 
lines being correct. This sounds pret- 
ty bad, but in reality it’s only a prob- 
lem when there is a heavy flow of 
data in both directions, which is pret- 
ty rare. The reason I allow this bug to 
exist is that the proper solution re- 
quires interrupt-driven output. DDJ 
has only so many pages for my giant 
listings. 

The version of excom on the list- 
ings disk is an updated version with 
interrupt-driven output, corrected 
sending of Control-S/Control-O, the 
ability to repair the damage done by 
ill-behaved programs, the ability to 
do output XON/XOFF flow control, 
and self-relocation to the end of RAM. 
(See the “Availability” section at the 
end of this article.) 


Use Excom on Your IBM PC 
To make excom.com, use the follow- 
ings commands: 


masm excom.asm ; 

link excom.obj ; 

exe2bin excom.exe excom.com 
del excom.exe 


Normally, you should install ex- 
com early in the boot process—be- 
fore a print /d—because the print 
spooler steals int 14h. The real-time 
clock initialization program on my 
clone messes up the int 14h vector for 
an unknown reason; therefore I in- 
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“How to protect your software 
by letting people copy it?’ 


By Dick Erett, President of Software Security 


Inventor and 
entrepreneur, 
Dick Erett, 
explains his 
company’s 

© view on the 
protection of intellectual 


property. 


66 crucial point that 
even sophisticated 
software develop- 


ment companies and the 

trade press seem to be miss- 

ing or ignoring is this: 
Software protection must 
be understood to be a 
distinctively different 
concept from that com- 
monly referred to as 
copy protection. 


Fundamentally, software 
protection involves devising 
a method that prevents 
unauthorized use of a 
program, without restricting 
a legitimate user from 
making any number of 
additional copies or prevent- 
ing program operation via 
hard disk or LANs. 

Logic dictates that mag- 
netic media can no more 
protect itself from misuse 
- than a padlock can lock itself. 

Software protection must 
reside outside the actual 
storage media. The technique 
can then be made as tamper 
proof as deemed necessary. 
If one is clever enough, 
patent law can be brought 
to bear on the method. 

Software protection is at 
a crossroads and the choices 
are clear. You can give 
product away to a segment 
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Hard Disk Installation : Simply copy program disk 
to hard disk using DOS Command - Copy A:e* C: 


the program diskette as you wish. 


Data Back-ups : Use normal back-up and restore 
commands, including backing up sub-directories containing 


program files. 
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Program Back-ups : You may make as many copies of 


, Networks : This product may be 

s. Follow the same installation 
page 102 of this manual. The Block 
vith the normal operation of any 





Soon all software installation procedures will be as straightforward as this. 





The only difference will be whether you include the option to steal your 


product or not. 


of the market, or take a 
stand against the theft of 
your intellectual property. 


‘““.. giving your software 
away is fine...” 


We strongly believe that 
giving your software away 
is fine, if you make the 
decision to do so. However, 
if the public’s sense of ethics 
is determining company 
policy, then you are no 
longer in control. 

We have patented a device 
that protects your software 
while allowing unlimited 
archival copies and unin- 
hibited use of hard disks and 
LANs. The name of this 
product is The BLOCK™ 

The BLOCK is the only 
patented method we know 
of to protect your investment. 
It answers all the complaints 
of reasonable people con- 
cerning software protection. 


In reality, the only people 
who could object are those 
who would like the option 
of stealing your company’s 
product. 


‘‘..eliminating the ratio- 
nale for copy-busting...”’ 


Since The BLOCK allows 
a user to make unlimited 
archival copies the rationale 
for copy-busting programs 
is eliminated. 

The BLOCK is fully pro- 
tected by federal patent law 
rather than the less effective 
copyright statutes. The law 
clearly prohibits the produc- 
tion of work-alike devices 
to replace The BLOCK. 





The BLOCK attaches to 
any communications port of 
virtually any microcomputer. 
It comes with a unique 
customer product number 
programmed into the circuit. 

The BLOCK 1s transpar- 
ent to any device attached to 
the port. Once it is in place 
users are essentially unaware 
of its presence. The BLOCK 
may be daisy-chained to 
provide security for more 
than one software package. 

Each software developer 
devises their own procedure 
for accessing The BLOCK 
to confirm a legitimate user. 
If it is not present, then the 
program can take appro- 
priate action. 


‘‘.. possibilities... 
limited only by your 
imagination...” 


The elegance of The 
BLOCK lies in its simplicity. 
Once you understand the 
principle of The BLOCK, 
hundreds of possibilities will 
manifest themselves, limited 
only by your imagination. 

Your efforts, investments 
and intellectual property 
belong to you, and you have 
an obligation to protect 
them. Let us help you safe- 
guard what’s rightfully yours. 
Call today for our brochure, 
or a demo unit.” 
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PAINLESS WINDOWS. 





Windows. Data Entry. Menus. 
Finally, a C programmers’ tool that makes 


them as easy to use as printf). 
With Greenleaf DataWindows™ 


you move in quantum leaps! 


ES Snazzy Window Treatments 


DataWindows represents an important 
breakthrough in C programming tools. It 
sets you free so you can create exciting 
programs quickly and easily, saving both 
time and money! Developed to work with 
the IBM PC, XT, AT, compatibles, and 
MSDOS or PCDOS, DataWindows is a 
carefully tooled system of C functions which 
will jazz up your programs with 
unprecedented efficiency. 


Greenleaf DataWindows is integrated 
windows, transaction data entry, pop-up, 
pull-down, and Lotus style menu systems 
with: 
= Screen Management. You don’t have to 
remember what’s on the display or the 
sequence in which you put it there. 
DataWindows does the grunt work. 
There are no restrictions. 


= Transaction Data Entry. Data entry 
windows can have any number of fields 
with sophisticated options for reading 
many data types. Calls are made to help, 
validation, and other functions. Full 
featured text editing, protected and 
mandatory fields, dBASE type picture 
strings, context sensitive help, validation 
of fields and transactions, redefinable 
keys, password entry, attribute control, 
keyboard idle and much more. 


= Device Independence. It detects the type 
of display adapter your computer is using 
and adjusts to it automatically for CGA, 
EGA, or monochrome. Logical video 
attributes are easy to use for color or 
monochrome. 


= Compatibility. Runs with Microsoft 
Windows and IBM TopView. 


= The Greenleaf Tradition of Quality. Reliable 
products. Professional documentation that 
gets you up and running quickly and 
keeps you there. Reference card. 
Newsletter and Bulletin board. 


IBM, Microsoft & dBase, are registered trademarks i 
{ t se, of Internati 
on Machines, Microsoft Corporation & Ashton-Tate remains 
S, IBM PC, XT, AT, & TopView are trad ; 
and Microsoft Windows are trademarks of Microoott Coe 





EEE Stop Window Shopping 


Order Today. Or call toll free for a free 
demo of the windows library that makes 
all the others obsolete. 


Order any of these high performance 
tools by calling your dealer or 
1-800-523-9830 today. Specify compiler 
when ordering. Add $8 for UPS second 
day air, or $5 for ground. Texas residents 
add sales tax. MasterCard, VISA, P.O., 
check, COD. In stock, shipped next day. 


Greenleaf DataWindows $225 
DataWindows Source Module $225 
The Greenleaf Comm Library v2.0 $185 
The Greenleaf Functions v3.0 $185 
Digiboard Comm/4-II $325 
Digiboard Comm/8-II $535 





GREENIEAF 





S ee 
1411 LeMay Drive, Suite 101 
Carrollton, TX 75007 
Call Toll Free 
1-800-523-9830 


In Texas and Alaska, call 


214-446-8641 
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Bee Window Oressings ee 


= Simple or Complex Windows. Up to 254 
powerful overlaid windows 
simultaneously, all with just one kind of 
window to remember! Yet any window 
can be from one character to 32K! 


m Easy Window Operations. DataWindows 
lets you move, zoom, frame, title, change 
colors, titles, frames, size, location, and 
make windows visible or invisible at will! 
Functions set cursor, attributes, and write 
data to any window or “current window”. 
Word wrap, auto scroll, keyboard 
functions. 


= Write to Any Window Any Time. Windows 
may be visible, overlaid, or invisible, and 
you can write to them anyway. What you 
write will be seen when the windows 
become visible. 

= DataWindows is fast! It writes directly to 
video memory (in some modes). 


m Easy to save! Any window, complete with 
attributes, can be saved on disk quickly 
and efficiently. 


@ Source code available. No royalties. 


EES Also trom Greenleaf: 


The Greenleaf Functions v3.0 
The most complete, mature C language 
function library for the IBM PC, XT, AT 
and close compatibles. Includes over 225 
functions — DOS, disk, video, color text 
and graphics, string, time/date, keyboard, 
disk status and Ctrl-Break functions plus 
many more. 


The Greenleaf Comm Library 
Our 2.0 version is the hottest 
communications facility of its kind. Over 
120 functions — ring buffered, interrupt 
driven asynchronous communications for 
up to 16 ports simultaneously with 
XMODEM, XON/XOFF, many many 
sophisticated features. 


We support all popular C compilers for 
MSDOS/PCDOS: Microsoft, Lattice, 


Computer Innovations, Aztec, DeSmet, 
and others. 





COM PORT DRIVER 
(continued from page 46) 


stall excom after running the clock 
initialization. A bit of experimenta- 
tion may be required. Excom is self- 
installing; just run excom to install it. 
If all you need is buffered input, 
you ve finished. Excom will be prop- 
erly set up by programs using the 
COM ports, and the existing mode 
command will configure excom. To 
tap the power of excom, you may 
need to access some of the extended 
features. If you use excom with your 
own programs, you can just make an 
int 14h call with ah = 4 to set any ex- 
tended options you may need. If you 
use excom with existing programs, 
you need a way to set the extended 
options from your keyboard or a 
batch file. 

Listing Two, page 75, is a simple lit- 
tle C program called exmode that sets 
extended configuration parameters. 
Exmode works with the Microsoft 
4.0 C compiler. If you have a differ- 
ent one, you may need to rewrite the 
function int14—it just sets registers 
and performs a software int 14h. You 


can also use exmode to install and re- 
move excom, usually useful only 
while testing. 

Exmode is self-documenting; just 
run exmode and it will tell you what 
it can do. Note that running exmode 
does not add to existing extended op- 
tions but sets the complete set—that 
is, exmode com1 nodsr followed by 
exmode com1 nocts is not the same as 
exmode com1 nodsr nocts. In the first 
case, only nocts is left set; in the sec- 
ond, both nocts and nodsr are set. 
COM1's settings can be cleared by 
running exmode com1. The previous 
examples will not change any of 
COM2's settings. 

An interesting possibility with ex- 
com is nesting several invocations of 
excom. Say you have excom set up 
the way you want it for a shell run- 
ning on your CRT and want to tempo- 
rarily run a communications pro- 
gram. Just install excom again, set it 
up for communications, run the 
communication program, and then 
use exmode to remove excom. The 
most recent copy of excom is re- 
moved, restoring your old excom 
untouched. 


Copy protection and 
customer satistaction? 


here's a better way to protect your software. 


It's called the Secom Key, and it works. 


[_} The Key is completely transparent to the 


end user. 


() Won't interfere with peripheral operations. 


[_} Doesn’t occupy the disk drive. 


) The Key allows unlimited backup copies. 
[_ Makes site licensing easy and auditable. 
_) Fasily installed. Uses only 1000 bytes. 
[_} Over 60,000 have been sold worldwide. 


[_) Same size as RS-232 plug. 


(_) Available in quantities for as low as $19.95. 
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Availability 

All the source code for articles in this 
issue is available on a single disk. To 
order, send $14.95 to Dr. Dobb’s Jour- 
nal, 501 Galveston Dr., Redwood City, 
CA 94063 or call (415) 366-3600 ext. 
216. Please specify the issue number 
and format (MS-DOS, Macintosh, 
Kaypro). 
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ARTICLES 


Dynamic Memory Overlays 





orland International’s Tur- 
BR bo Pascal has a significant 
limitation that hinders its 
usefulness for developing large pro- 
grams. Because the compiler can 
generate code for only a single code 
segment, it imposes a 64K limit on ex- 
ecutable code space. Turbo Pascal’s 
overlay system, designed to circum- 
vent this restriction, potentially al- 
lows for much larger amounts of 
code but at the cost of dramatically 
slowing program execution as over- 
lay code is loaded from disk files. 
This article describes a way to use 
Turbo Pascal’s overlay facility in con- 
junction with dynamic memory to 
build memory overlays that can be 
loaded and executed far more rapid- 
ly than can disk overlays. These 
memory overlays are easy to set up 
and can optionally be left on disk at 
run time if sufficient memory is lack- 
ing. This technique lets you have the 
best of both worlds: a program that 
can execute in limited memory with 
disk overlays but that can take ad- 
vantage of extra memory to load 
overlays into RAM. 





Turbo Pascal’s 

Overlay Scheme 

Borland’s solution to the large-pro- 
gram problem is an overlay system. 
Programmers confronted with a pro- 
gram that would otherwise overrun 
the 64K code segment limitation can 
specify that the code of a group of 
procedures and functions should 





Steve McMahon, P.O. Box 3262, Berke- 
ley, CA 94703. Steve has been working 
with Turbo Pascal since Version 1.0. 
His company, SunType Publishing 


Systems, develops software for the 
newspaper industry. 
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by Steve McMahon 


A fast and versatile 
way to handle 


large programs 
in Turbo Pascal 





share the same execution space in 
the code segment. You make this dec- 
laration by grouping the routines 
contiguously in the source code and 
preceding the declaration of each 
overlay routine with the Turbo re- 
served word overlay. On compilation 
of the program, all the routines of an 
overlay group are compiled to a sep- 
arate overlay file, where the execut- 
ing program can find them as neces- 
sary. You can specify as many 
overlay groups as you wish within a 
program. The only coding limitation 
is that routines within an overlay 
group cannot call themselves (they 
cannot be directly recursive) or other 
routines within the same overlay 
group. (The recursion limitation can 
be circumvented by calling the over- 
lay routine from a recursive, non- 
overlay function or procedure.) 

The advantages of this scheme are 
that it is easy to use and that it allows 
you to construct programs with code 
not only larger than 64K but also po- 
tentially larger than available RAM. 
The disadvantage is a significant per- 
formance degradation: disk activity 
and DOs file handling overhead are 
now required every time an overlay 
routine is executed. Careful selection 
and grouping of overlay routines can 
minimize such performance degra- 
dation, but it is still] possible for a pro- 
gram to spend far more time reading 


for Turbo Pascal 


overlays from disk than doing any- 
thing else. 

Overlay performance can be sig- 
nificantly enhanced by storing the 
overlay file on a virtual memory, or 
RAM, disk. Turbo Pascal’s OvrPath 
procedure makes this possible by al- 
lowing run-time specification of the 
location of overlay files. This solution 
to the performance’ problem, 
though, has requirements—that a 
RAM disk be available, overlay files 
be located there, and the program be 
correctly informed of that location— 
that are unacceptable for application 
programs intended for use in normal 
DOS environments by unsophisticat- 
ed operators. 

A solution to the overlay perform- 
ance problem that is faster, more 
versatile, and completely invisible to 
an application program’s users is 
presented here. But first, let’s take a 
look at how Turbo Pascal’s overlay 
system works. 


How Overlays Work 
When Turbo Pascal compiles a pro- 
gram that has overlay procedures, it 
reserves an overlay area in the code 
segment (and in the .cOM file) large 
enough to accommodate the largest 
of the procedures or functions in a 
given overlay. group. All the proce- 
dures and functions in that overlay 
set are then compiled for execution 
at the same position within the re- 
served overlay area. Those proce- 
dures and functions are stored all to- 
gether in a separate overlay file that 
bears the same name as the main 
program but has the number of the 
overlay group ( .000, .001, and so on) 
as a file-name extension. 

When some other portion of the 
program makes a call to an over- 
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layed function or procedure, the call- 
ing code passes in registers the offset 
of the required overlay function or 
procedure inside the overlay file and 
the length of the code fragment to be 
loaded. The call is made to a frag- 
ment of code positioned at the top of 
the reserved overlay area. This frag- 
ment passes control to the overlay 
handler in Turbo Pascal's run-time 
package, having placed the address 
of the reserved overlay area on the 
stack. The overlay handler responds 
by checking to see if the code re- 
quired is already in place in the over- 
lay area (the overlay file offset of 
whatever code is currently in the 
overlay area is stored in a data area at 
the top of the reserved overlay space 
along with the name of the overlay 
file). If the code required is already in 
place, the overlay handler executes 
it. If not, the code is read from the 
overlay file: the overlay file is 
opened, a seek is made to the re- 
quired offset, and the specified quan- 
tity of code is read into the overlay 
area. Finally, the file is closed, the 
overlay file offset of the now-current 
code fragment is saved in memory 
for future reference, and the overlay 
function or procedure is executed. 

This overlay handling method is 
ripe for alteration. If the contents of 
the overlay file could be positioned 
in some otherwise unused portion of 
memory, then a replacement over- 
lay handler could snatch code frag- 
ments from that area of memory 
rather than from a disk file. The time 
savings could be impressive: overlay 
calls would require no disk activity. 
Such a scheme should even provide 
significant speed advantages over us- 
ing Borland’s overlay handler in con- 
junction with a RAM disk (to contain 
the overlay file) because DOS file han- 
dling overhead would be‘eliminated. 
What a memory overlay scheme 
couldn't do, though, is allow for pro- 
grams that are truly larger than 
memory because all the overlay code 
would need to fit in memory avail- 
able to the program. 

Such a scheme can be implement- 
ed with no changes to the compiler 
and with surprisingly little extra 
code. Best of all, it can be done with 
little modification of existing pro- 
grams that use overlays. All that's 
necessary is to include the proce- 
dures contained in MemOvrly.Inc 
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ce 


(Listing One, page 78) in a program 
that uses overlays and to add some 
initialization and deinitialization 
code to the program. (Some limita- 
tions on the scheme are discussed 
later.) 


Using MemOvrly.Inc 

You can include the three proce- 
dures that make up the memory 
overlay handler in an existing pro- 
gram by adding the line: 


{$I MEMOVRLY INC} 


at a point in the procedure and func- 
tion declaration part of a program 
that uses overlays (do not nest it in- 
side a procedure or function). Then, 
you must add a procedure call, prob- 
ably inside the main body of the pro- 














PROGRAM OverlayTest; 


{$I MEMOVRLY.INC} 


OVERLAY PROCEDURE One; 
BEGIN 


END; 
OVERLAY PROCEDURE Two; 
BEGIN 
END; 


BEGIN 









no problem. } 


InitOverlay (Ofs (One) ); 












REPEAT 


Read (Kbd, ¢c); 
WriteLn; 
TF Gc <> ~2 THEN 
BEGIN 
One; 
Two; 
END; 
WriteLn; 
UNTIL ¢c = “2? 













to another program. 





END. 


(* Memory Overlay Demonstration Program. *) 


WriteLn('This is Overlay Procedure One.'); 


WriteLn('This is Overlay Procedure Two.'); 


{Install the new overlay handler by passing it the address 
offset of ONE procedure or function from the overlay group. 
Multiple invocations for multiple overlay groups should be 


Write('Hit any key to run the overlays (*Z to stop): '); 


{Free up the heap space used by the replacement overlay 
handler by passing the same offset as above to the 
DisposeOverlayStorage Routine -- VITAL if you're chaining 

The heap is preserved in a chain operation.} 


DisposeOverlayStorage (Ofs (One) ); 


gram, to initialize the substitute over- 
lay handler for each overlay group 
that you wish to use as a memory 
overlay group. You can add code to 
dispose of the dynamic memory 
used by the memory overlay group 
or groups at the end of the program. 
This cleanup code is particularly im- 
portant if the program chains to an- 
other Turbo Pascal program because 
Turbo Pascal preserves the dynamic 
memory heap on chaining. 

To set up a particular overlay 
group aS a memory overlay group, 
all that’s necessary is to run the Init- 
Overlay procedure, passing it the ad- 
dress of some procedure or function 
in the overlay group. If, for example, 
an overlay group contained, among 
other routines, the function or proce- 
dure One, the entire overlay group 









Example 1: Short program demonstrating memory overlays 
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TURBO PASCAL OVERLAYS 
(continued from page 51) 


could be initialized as a memory 
overlay group with the statement: 


InitOverlay( Ofs( One ) ); 


Ofs is a built-in Turbo Pascal function 
that returns the offset within a seg- 
ment of a variable or procedure. Be- 
cause you know that the reserved 
overlay area associated with the rou- 
tine One is in the code segment, pass- 
ing the offset of the routine is suffi- 
cient to establish where the reserved 
overlay area for this group is located. 
This instruction allocates dynamic 
memory sufficient to contain all the 
overlay code, reads that code into 
memory, and installs the procedure 
NewOverlayHandler as overlay han- 
dler for that group. Any overlay 
groups not set up in this fashion are 
handled by Turbo Pascal’s normal 
overlay handler. Also, if not enough 
dynamic storage is available to ac- 
cept the overlay code, the group is 
left as a normal, nonmemory 
overlay. 

Likewise, the memory used to con- 
tain all the overlay code for a given 
overlay group can be reclaimed for 
other uses with the instruction: 


DisposeOverlayStorage( Ofs( One ) ); 


It's crucial that you do not try to call 
any routine in the overlay group af- 
ter issuing this instruction. The Dis- 
poseOverlayStorage procedure does 
not restore the old, nonmemory 
overlay handler for the specified 
overlay group. It merely frees up the 
memory previously occupied by 
overlay code for other uses. So, the 
DisposeOverlayStorage command is 
usually used only (if at all) at the end 
of a program. If the program does 
not use Turbo Pascal's Chain facility 
to chain to another Turbo Pascal pro- 
gram, you probably don’t even need 
to use the DisposeOverlayStorage 
procedure. If you do need it, it 
should be executed once for each 
memory Overlay group in use. 


How It Works 

When asked to initialize a memory 
overlay group, the InitOverlay proce- 
dure pulls the name of the overlay 
code file from the reserved overlay 
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area and opens the file as a Turbo 
Pascal untyped file. The file is sized 
and a check is made to make sure 
that enough dynamic memory is 
available to hold the entire file’s con- 
tents with sufficient heap space left 
over to satisfy the program’s other 
needs. (The amount of dynamic 
memory otherwise required by the 
program is determined by the con- 
stant RequiredHeap, which can be 
changed to reflect the needs of a par- 
ticular program.) 

If not enough dynamic memory is 
available, things go no further and 
the overlay group is left as a normal, 
nonmemory overlay group. Other- 
wise, heap space is allocated and the 
overlay file is read into memory. 
Then, the initialization procedure 
substitutes codes comprising a call in- 
struction for the memory overlay 
handler for code that would normal- 
ly call Turbo Pascal's native overlay 
handler. A data area that formerly 
contained the overlay file name is 
subsequently filled with information 
more pertinent to the memory over- 
lay handling routine: the location 
and size of the heap space containing 
all the overlay code. 

When a routine in the memory 
overlay group is needed, the call is 
directed to the new overlay handler. 
This handler uses the overlay offset 
and size location it receives to find 
the required code on the heap. The 
code is then moved into the reserved 
overlay area in the code segment 
with a string move and is executed. 

The procedure that disposes of 
overlay storage on the heap is pretty 
straightforward. The only special 
thing it does is check to make sure 
that the overlay group it has been 
pointed to is actually a memory over- 
lay group. If there wasn’t adequate 
dynamic memory when memory 
overlay initialization was attempted, 
then the group might have been left 
as a normal overlay group and there 
would be no dynamic memory to 
free. 


Limitations and Cautions 
The memory overlay scheme de- 
scribed here does not work with 
overlay groups for which the over- 
lay file is 64K or larger. 

Nested overlays, created by declar- 
ing overlay groups within already 
overlayed functions or procedures, 


cannot be made into memory over- 
lays. This would require modifica- 
tion of code inside overlay files or on 
the heap and seems beyond the 
bounds of what could be reliably, 
simply implemented. 

Turbo Pascal’s OvrPath procedure 
won't work in conjunction with 
memory overlay procedures. This is 
one limitation that could be over- 
come without too much difficulty by 
anyone who understands the code in 
MemOvrly.Inc—but it’s probably not 
necessary because the primary utili- 
ty of OvrPath is the placement of nor- 
mal overlays on RAM disks. 

MemOvrly.Inc is highly version 
dependent. It definitely won’t work 
with any version of Turbo Pascal pri- 
or to 3.0, and if Borland changes its 
overlay handling technique in later 
versions, MemOvrly.Inc may have to 
be modified to take account of the 
changes. 

Finally, as with overlays in gener- 
al, memory overlays should be used 
only for functions and procedures 
that have been thoroughly de- 
bugged. Debugging functions and 
procedures placed in overlay groups 
can be exceptionally difficult. 


Customizing MemOvrly.Inc 

You may wish to customize the 
memory overlay handling routines 
in two ways. First, the initialization 
routine contains no input/output er- 
ror checking code. 

Second, when a program needs 
significant amounts of dynamic 
memory, the RequiredHeap constant 
at the top of MemOvrly.Inc should be 
customized to reflect that fact (as 
should the ‘“‘minimum free dynamic 
memory ' setting on the Turbo Pascal 
memory usage menu). 


Availability 

All the source code for articles in this 
issue is available on a single disk. To 
order, send $14.95 to Dr. Dobb’s Jour- 
nal, 501 Galveston Dr., Redwood City, 
CA 94063 or call (415) 366-3600 ext. 
216. Please specify the issue number 
and format (MS-DOS, Macintosh, 
Kaypro). 
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A TRAINING 


COURSE FOR 
PEOPLE WHO 
LUST AFTER 












Intel is offering three new 
courses on the world’s most pow- 
erful 32-bit microprocessor- 
the 80386. Plus a new intensive 
course on the 80286. 

These in-depth learning sessions are 
designed for engineers and programmers 
who want to utilize the full power and 
potential of these lightning-fast chips. 

Lectures are combined with hands-on 
workshops to provide real-life situations. 
Allowing you to apply new concepts and 
techniques immediately. 

Courses include: 

80386 System Software 

80386 Programming using ASM386 

High-end Microprocessor Hardware 

Design 
The new 80286 Microprocessor 
Family Course 
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Complete training sessions and 
courses can be scheduled at your 
facility, or at our training centers. 
In addition to training, Intel offers 
hardware/software support and 
consultants. 

For more complete course informa- 
tion and schedules, call toll-free (800) 
548-4725. 

Or to register now, contact one of the 
Intel Training Centers listed below 


Intel Training Centers 


Boston Area, Westford Corp. Ctr. San Francisco Area 

Three Carlisle Road, 1st Floor 2700 San Tomas Expressway 
Westford, MA 01886 Santa Clara, CA 95051 

(617 ) 692-1000 (408) 970-1700 

Chicago Area Washington, D.C. Area 

300 N. Martingale Road, Suite 300 7833 Walker Drive, Sth Floor 
Schaumburg, IL 60194 Greenbelt, MD 20770 

(312) 310-5700 (301) 220-3380 


intel 
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A Unix BBS 





Using Shell Scripts 


wo years ago I assumed the 
FBS sesponsioiny of developing 

a BBS (now known as Scholas- 
tech Telecommunications) for Scho- 
lastech, a nonprofit organization 
made up of college professors and 
other industry professionals whose 
goal is to facilitate and enhance aca- 
demic computing. The BBS is de- 
signed to provide a distribution 
mechanism for Scholastech’s public- 
domain/shareware software collec- 
tion and to futher the exchange of in- 
formation between educators at the 
college and university level. 

Scholastech Telecommunications’ 
software was originally developed 
and installed on an AT&T 7300 with 1- 
megabyte RAM and a 20-megabyte 
hard disk (by the time this article is 
published, the system will have been 
transfered to an AT&T 3B2 with a 72- 
megabyte drive). It has been in oper- 
ation since October 1985, and to the 
best of AT&T’s knowledge, it is the 
only BBS that has ever run on a 7300. 
Though the decision to use that par- 
ticular machine was dictated only by 
circumstances (no other Scholastech 
hardware had the necessary config- 
uration), the Unix operating system 
has provided an ideal environment 
in which to develop and operate a 
bulletin-board system. Not only is 
Unix multiuser and multitasking but 
it also contains significant support 
for telecommunications. 

This article briefly discusses the 
Unix telecommunications environ- 
ment and then looks in depth at the 
software written to implement Scho- 
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by Jan L. Harrington 


Unix 
has made it 
remarkably simple 


to developa 
bulletin-board 
svstem. 





lastech Telecommunications. Al- 
though it may seem like exposing the 
trade secret of the century, it is none- 
theless true that the Unix operating 
system has made the development 
remarkably simple; the entire BBS 
software consists of a set of Unix V 
Bourne shell scripts, some support- 
ing text files, and a public-domain 
XMODEM file transfer program. 


The Unix 
Telecommunications 
Environment 

Most implementations of Unix sup- 
port both electronic mail (mail) and 
intersystem file transfers (uucp— 
Unix to Unix copy). When these func- 
tions are present, the system is able 
to answer and place phone calls. 
Unix also supports cu (call up) opera- 
tions, which turn the system issuing 
the call into a dumb terminal. If the 
system called happens to be another 
Unix machine, cu supports file trans- 
fer as well. In terms of developing a 
BBS, cu is of little use because it is un- 
reasonable to assume that all incom- 
ing calls will be from another Unix 
system. Cu’s file transfer functions 
therefore cannot be used as part of 
BBS software. 

On the other hand, the presence of 
facilities to manage electronic mail 
and uucp transfers means that the 
system can handle incoming calls 
from any type of system (it is nonthe- 
less true that the full power of Unix 








telecommunications can only be re- 
alized when the communication is 
with another Unix system). The steps 
for preparing a Unix system for tele- 
communications do not vary greatly 
from one implementation to anoth- 
er, though the details of how and 
where the activities occur may be 
different. Generally, setting up a 
Unix system to receive incoming 
calls involves the following two 
actions: 


1. Configure communications port(s): 
The AT&T 7300 has two internal mo- 
dems; port configurations are han- 
dled by an applications shell known 
as The Office (because The Office 
performs some undocumented ac- 
tions when it configures ports, users 
of the 7300 are wise not to attempt to 
do the configuration from the 
Bourne shell). More commonly, how- 
ever, the configuration is handled 
from the shell by making appropri- 
ate entries in device configuration 
files, though the actual names of the 
files will vary between implementa- 
tions. 

2. Verify that a getty process is avail- 
able for the port(s): Getty is a Unix sys- 
tem process that polls devices for in- 
put; it is also the process that actually 
logs a user onto the system. Instruc- 
tions as to how the system should re- 
spond to device activity are con- 
tained in the file inittab. For 
example, the following inittab is 
used by the 7300: 


is:2:initdefault 
rc:bootwait:/etc/re > /dev/window 
< /dev/w12>&1 
vid:2:respawn:/etc/getty window 
9600 
:ph0:2:respawn:/etc/getty phO 1200 
ph1:2:respawn:/etc/getty ph1 1200 
000:2:respawn:/etc/getty tty000 9600 
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The first line in inittab puts the sys- 
tem in multiuser mode when the sys- 
tem is started; the second invokes rc, 
the shell script that handles system 
boot. The remaining lines are for ac- 
tual devices. The colon in front of pho 
indicates that the first modem line is 
inactive and should not be polled; the 
line in use is ph1. The word respawn, 
seen in the four device lines, indi- 
cates that if the getty process is not 
active when the device is polled, it 
should be started. 

For some implementations of 
Unix, the same port cannot be used 
for both incoming and outgoing calls; 
the getty process must be inactive for 
outgoing lines and active for incom- 
ing lines. Configuring such systems 
for outgoing calls means that a colon 
must be placed in inittab at the begin- 
ning of the entry for each port that 
will be used to dial out, as was done 
above for the inactive phd line. The 
7300, however, kills the getty on a 
port automatically whenever an out- 
going call is placed, making it possi- 
ble to use the same line for both in- 
coming and outgoing traffic. 


Once one or more ports have been 
configured (assuming a modem is at- 
tached) and a getty is polling those 
ports, Unix answers incoming calls 
and takes users through the log-in 
process without intervention from 
an application program. Unix also in- 
tercepts the system log-out com- 
mand, Ctrl-D, and logs users off. It is 
important to realize that this is not 
enough to configure the system for 
outgoing calls; outgoing calls require 
at least an entry in the file L-devices 
which describes the type of modem 
in use. Uucp and mail also require 
entries in the file L.sys, which identi- 
fies the names and phone numbers 
of other Unix systems that the host 
can call. Additional configurations 
may be necessary under specific 
Unix implementations. 

What does this mean for a BBS that 
is to run on a Unix machine? The BBS 
software does not have to manage 
telecommunications: it does not have 
to poll a serial port to detect incom- 
ing calls, it does not have to log users 
onto the system, and it does not have 
to log users off the system. A simple 
Unix BBS needs to be concerned only 
with the actual functions remote us- 
ers will perform after they are actu- 
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ally logged onto the system. 


Overview of the System 
The Scholastech BBS software pro- 
vides the following functions: 


¢ file upload and download 
¢ public message exchange 
¢ private mail 

¢ user help 

¢ change of password 


Each user is given a separate Unix 
account under what is known as the 


The steps 
for preparing a 
Unix 
telecommunications 
svstem 
do not vary 
greatly. 


‘‘restricted shell.’’ The restricted 


shell prevents users from changing 
directories, from accessing directo- 
ries not in their default PATH (set ina 
profile, an executable shell script 
that is run automatically when a user 
logs in), and from using any com- 
mands not contained in their rbin di- 
rectory. The rbin directory is also 
made part of the user’s default path. 
The restricted shell therefore effec- 
tively locks BBS users into a small seg- 
ment of the system, preventing them 
from even listing the contents of di- 
rectories that are not part of the BBS. 

BBS commands are each imple- 
mented as a separate shell script. 
There are at least four advantages to 
this approach: 


1. The short shell scripts are easier to 
debug than a long, single program, 
regardless of whether the program is 
a shell script or compiled C. 

2. New commands can be tested and 
added at any time without disturbing 
BBS operation. 

3. Individual shell scripts simplify 
the logging of users’ activities and the 
monitoring of their activities while 
they are on the system. 

4. Shell script programming doesn't 
require the nearly 10 megabytes of 








disk space needed by the C develop- 
ment system on the 7300. 


There are, of course, some major 
disadvantages to working with sepa- 
rate shell scripts: 


1. Each user must have his or her 
own account (as long as the number 
of users is small, this is not an enor- 
mous problem, but as the number of 
users rises, account management be- 
gins to consume significant amounts 
of time). 

2. Because they are interpreted rath- 
er than compiled, shell scripts run 
much more slowly than would, for 
example, programs in compiled C. 

3. The Bourne shell itself, although 
containing powerful flow of control 
statements, is weak in terms of arith- 
metic operations. Even.simple addi- 
tion must be prefaced with the com- 
mand expr and enclosed in single 
quotes before the sum can be as- 
signed to a variable. 


Scholastech Telecommunications 
has two special accounts without 
passwords, new and info. The new 
account is designed only for on-line 
account requests; the info account 
displays information about Scholas- 
tech activities and can accept on-line 
sign-up for Scholastech workshops. 
Code for these functions is contained 
in their .profiles. 


BBS Directory Structure 
Scholastech Telecommunications 
files are maintained within the direc- 
tories /u/bbs and /u/bbs/rbin and 
their subdirectories. The contents of 
the directory in /u/bbs are: 


erbin directory (contains all com- 
mands available to restricted shell 
users) 

¢ MS-files directory (contains MS-DOS 
software) 

¢ Unix-files directory (contains Unix 
software) 

e Mac-files directory (contains Macin- 
tosh software) 

¢ Uploads directory (destination for 
all uploaded software) 

enew (log-in for on-line sign-up for 
new accounts) 

¢ info (log-in for Scholastech informa- 
tion and on-line workshop sign-up) 
emsg directory (contains support 
files for the public message 
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subsystem) 

¢log.file (a text file that records BBS 
command usage) 

¢ msgi (a text file whose contents are 
displayed by a user’s .profile) 

¢ directories for each BBS user 


The directory /u/bbs/rbin contains: 


¢ dwnid (shell script for downloading 
software) 

¢help (shell script for displaying BBS 
instructions) 

¢list (shell script for listing the con- 
tents of a data library) 

epmail (shell script for sending and 
reading private mail) 

ereadmsg (shell script for reading 
public messages) 

escan (shell script for viewing the 
headers of public messages) 

¢ send (shell script for sending public 
messages) 

¢xmodem (public-domain file trans- 
fer program; compiled C) 

¢ supporting text files: 


a. MS.list (listing of MS-DOS data 

library) 

b. Mac.list (listing of Macintosh 

data library) 

c. Unix.list (listing of Unix data 

library) 

d. help.file (text file with BBS 

instructions) 

e. user. file (listing of system users) 
e all Unix commands used by the BBS 
shell scripts (either copied or linked 
into this directory) 


The Shell Scripts 


BBS User’s .proiile 
The environment for each BBS user is 
configured by a short .profile: 


PATH=/u/bbs/rbin:/u/bbs/MS- 

files:/u/bbs/Mac-files: /u/bbs/Unix- 
files: /u/bbs/Uploads 

export PATH 

Poise > 

cat /u/bbs/msg1 

echo 


The .profile establishes the rbin di- 
rectory and the program library di- 


rectories as the user’s default PATH 
(although technically there is only 
one restricted shell, /bin/rsh, there 
can be many rbin directories within 
a single Unix file system, each of 
which has a different path name and 
contains a different set of com- 
mands). The default prompt is also 
changed from the standard Bourne 
shell $ toa >. Finally, the .profile dis- 
plays the contents of a short wel- 
come message (stored in msg1) and 
then returns control to the operating 
system. 

Users logging in for the first time 
or after a long absence usually use 
the help command to display a 
screen full of instructions. The help 
command shell script is only two 
lines long: 


echo ‘who am ii cut -f1 -d” ” ’ ’date ! 
cut -cl1-c16’ “help” >>/u/bbs/ 

log.file 
cat /u/bbs/rbin/help.file 


The first line writes a record to the 
command use log file, /u/bbs/log 
file; the second simply displays the 
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contents of a text file containing 
instructions. 

Users who wish to change their 
passwords can issue the command 
passwd. This Unix command is not 
contained in a shell script but is made 
available to BBS users at their > 
prompt. Passwd prompts for the 
new password and then asks that it 
be entered again for verification. On 
the 7300, passwd also enforces for- 
mat constraints—passwords must be 
two words separated by a special 
character (only passwords estab- 
lished by the superuser can violate 
those constraints). 


The Program Libraries 

Three commands support user inter- 
action with the program libraries— 
list, which displays the contents of a 
program library; dwnld, which 
downloads a file; and upld, which 
uploads a file. 

The command list (Listing One, 
page 80) uses the Unix command 
more to display the contents of a text 
file that contains a listing of files 
available in a specific program li- 
brary (lines 6, 11, and 16). Although 
the more widely used cat command 
also displays the contents of a text 
file, more displays the text one 
screen at a time (users advance by 
pressing the space bar or Return key) 
and is therefore better suited for 
screen displays. The Unix command 
to display a file directory, /s, could 


also be used to show the contents of | 


the program libraries directly; this 


would eliminate the need to main- | 
tain the separate text files. In terms | 
of security, however, Is is a “danger- | 


ous” command. If /s is present in the 
rbin directory, users who know Unix 


can use it from the > prompt to view | 
the contents of that directory. They | 
can then be aware that potentially | 


more dangerous commands such as 


mv, which moves a file from one | 


name or place to another, are avail- 
able under the restricted shell. The 


rbin/MS.list. The shell script traps 
the argument at lines 2, 7, and 12. If 
no argument is present (line 17), the 
shell script prints an error message 
(line 18) and exits. List, like all the 
other BBS commands, also writes a 
record to the command use log file 
(lines 4, 9, and 14). 

Dwnld (Listing Two, page 80) trans- 
fers files from the program libraries 


quires two arguments—a designator 
for the program library and the 
name of the file. For example, dwnld 
MS PCFILE.ARC initiates transfer of 
the file /u/bbs/MS-files/PCFILE.ARC. 
The first 12 lines of the dwnid script 
identify the program library. If no 
program library is included, the 
script prints an error message (line 
11) and does not execute a transfer. 
Assuming that a valid program li- 
brary has been entered, dwnid then 
verifies that a file name is present 
(line 13); the error message for a miss- 
ing file name appears in lines 37 and 
38. The presence of a file name on 
the command line, however, does 
not guarantee that the file exists. A 





to a remote user. The command re- | 








check for a valid file occurs on line 15 
(the error message for an invalid file 
name appears in lines 32-34). After 
verifying that the requested file ex- 
ists, dwnld writes a log record (line 
17) and then prompts the user for the 
file transfer method (line 18). Files 
can be transferred as ASCII text (lines 
24-29); the script simply cats the file 
to the user, who must have instruct- 
ed his or her terminal emulator pro- 
gram to capture incoming data to 
disk. 

Binary file transfers are per- 
formed using the XMODEM file trans- 
fer protocol (line 22). Xmodem, the 
program used to implement the 
transfers, is a stand-alone file upload 
and download program that can be 
executed from the Unix command 
level as well as from within a shell 
script. Two versions exist in the pub- 
lic domain, umodem and uc, both of 
which are available as C source code. 
Xmodem was obtained by download- 
ing the umodem source code from an 
existing Unix BBS and then compil- 
ing it on the 7300 (this was done prior 
to loading the program libraries, 
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best situation is to avoid the use of 
dangerous commands entirely, but 
they are essential to more than one | 
of the BBS shell scripts. | 

The listings for each of the three | 
program libraries are kept in sepa-— 
rate files. Users must specify which | 
program library as an argument to | 
the command. For example, list MS | 
displays the contents of /u/bbs/ — 
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when there was still enough space of 
the disk for the entire development 
system). The xmodem command line 
is straightforward: the argument -sb 
indicates that a file is to be sent and 
that its format is binary; the second 
argument is the path name of the file 
to be transmitted. 

Upld (Listing Three, page 81) han- 
dles file transfers in precisely the op- 
posite manner to dwnild. ASCII 
uploads echo incoming characters to 
a text file (ines 14-19); to upload bina- 
ry files, xmodem is invoked with the 
arguments -rb, receive binary (line 
12). Upld also contains code to verify 
that a name for the file to be upload- 
ed has been entered as an argument 
to the command (lines 1 and 26-27); 
verifies that the file name for the in- 
coming file doesn’t duplicate an ex- 
isting file name in the Uploads direc- 
tory (lines 1-5); and collects a 
description of the file (appended to 
the text file /u/bbs/Uploads/Doc- 
file), which the sysop can use to 
quickly figure out the nature of up- 
loaded files. 


The Public Message Subsystem 
Three shell scripts support the ex- 
change of public messages—scan dis- 
plays the headers of all current mes- 
sages, readmsg displays individual 
messages by number, and send sends 
a public message. 

Scan is a short script that does 
nothing more than display the con- 
tents of a special text file, index, to 
which an entry is added whenever a 
message Is sent: 


echo ‘who am i! cut -f1 -d” ” ’ date | 

cut. .-cl-cl6: “scan’ «>> /u/bbs/ 
log.file 

echo 

echo 

more /u/bbs/msg/.index 

echo 


Scan’s purpose is to allow users to 
identify the numbers of messages 
that might be of interest. 

Messages are displayed on the 
screen by the command readmsg 
(Listing Four, page 81). Readmsg uses 
two simple files—/u/bbs/.first, 
which contains the number of the 
first message available, and /u/bbs/ 








.last, which contains the number of 
the last message available—to re- 
mind users who might not have 
scanned the message index of valid 
message numbers (lines 1-9) to do so. 
The file names of messages stored in 
/u/bbs/msg are the same as their 
message numbers. For example, 
message number 64 has the file name 
/u/bbs/msg/64. Therefore, once the 
user enters a message number (line 
12), readmsg can simply cat a file by 
that name (line 18). The script also 
traps nonexisting message numbers 
(lines 19-21). 

The shell script send (Listing Five, 
page 82) stores messages for the pub- 
lic message system. The script incre- 
ments the last message number (line 
8) and then conducts a dialogue with 
the user to collect the message head- 
er (lines 11-25) and the body of the 
message (lines 27-34). In addition, the 
message header must be added to the 
top of the file /u/bbs/msg/.index 
(that is, scan displays message head- 
ers in descending order by message 
number). To maintain the descend- 
ing order, the headers are first writ- 
ten to a temporary file (lines 35-33). 
Then, the existing .index file is con- 
catenated onto the end of the tempo- 
rary file (line 39). Finally, the tempo- 
rary file is moved on top of the old 
index, effectively erasing the exist- 
ing file (line 40). Because public mes- 
sages can be addressed to groups of 
people (for example, ALL or All 3B2 
Users), send does not bother to verify 
that the addressee is a valid system 
user ID. 


The Private Mail Subsystem 
Private mail is built around the Unix 
mail command. The shell script 
pmail (Listing Six, page 82) builds an 
interface to aid users in sending and 
reading mail. The script first displays 
the four available commands (lines 
4-11): s to send mail, r to read mail, / 
to see system users, and x to exit from 
pmail. 

The / command is not a command 
normally associated with Unix mail, 
but sending Unix mail requires an ar- 
gument of either a valid user ID or 
the electronic-mail name of a remote 
system known to the system from 
which the mail is sent. Unfortunate- 
ly, user IDs are often unrelated to us- 
ers real names. It is therefore impor- 
tant for the BBS to provide some way 


for users to associate system user IDs 
with human names. Pmail displays 
the contents of the text file /u/bbs/ 
rbin/user.file, which contains a list- 
ing of user names and user IDs (lines 
61-63). The same information is also 
available from the system file /etc/ 
passwd. In other words, it might be 
possible to avoid having to maintain 
user.file by using cut to obtain specif- 
ic fields from /etc/passwd. The ma- 
chine that supports Scholastech Tele- 
communications, however, also 
contains several accounts that are 
unrelated to the BBS. The code re- 
quired to grep out the accounts that 
should not be displayed to BBS users 
far exceeds the effort to maintain 
user file. 

Sending Unix electronic mail is 
straightforward. The mail command 
is used with a single argument—the 
user ID of the recipient (although 
Unix mail can be directed to remote 
Unix systems, Scholastech Telecom- 
munications does not make that ca- 
pability available to BBS users). For 
example, mail sysop sends mail to 
the sysop account on the same sys- 
tem. To send private mail, the pmail 
shell script: 


¢displays a set of instructions that 
help ensure that the mail will be sent 
successfully (lines 19-29) 

¢ collects the user ID of the account to 
which the mail is being sent (lines 31- 
32) 

*verifies that the user ID is valid 
(lines 34-39) 

¢sends the mail by issuing the Unix 
mail command (lines 40-45) 


Users working at the Unix com- 
mand level can read mail by issuing 
the command mail without any argu- 
ments (there is no reason why BBS us- 
ers who are knowledgeable about 
Unix cannot do so from their restrict- 
ed shell > prompt). Pmail reads mail 
in exactly that way (line 55). Several 
options are available once a piece of 
mail has been displayed on the 
screen, including forwarding the 
mail to other users and saving the 
mail under a different file name in 
the user’s account. Pmail, however, 
only alerts the user of the options of 
either deleting the message or leav- 
ing it in the user’s mailbox (lines 51= 
54). Though knowledgeable Unix us- 
ers may attempt to save the mail, BBS 
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users do not have the right to write to 
their own accounts (this restriction 
was included to conserve disk space); 
any attempt to save mail in a user’s 
account will therefore fail. Knowl- 
edgeable users may, however, suc- 
ceed in forwarding mail to other BBS 
users. 


Signing Up for a New Account 
The special account new exists on 
Scholastech Telecommunications 
without a password. Its sole purpose 
is to permit prospective users to re- 
quest accounts on-line. The code that 
manages the sign-up process is con- 
tained in the account’s .profile (List- 
ing Seven, page 86). Ideally, this .pro- 
file should automatically log users 
off the system once they have fin- 
ished. The only way to do so that 
works on the 7300 (stty 0 does not 
work) is to make the .profile the ac- 
count’s default shell. There is, how- 
ever, an important reason why the 
account wasn't set up in that way; 
any shells other than /bin/sh (the 
standard Bourne shell) and /bin/rsh 
(the standard restricted shell) are as- 
sumed to be extremely restricted. In 
particular, they do not permit any 
redirection of output. That means 
that data cannot be sent to a disk file, 
something that is essential if user ac- 
count request data are to be stored. 
Instead, the new account is estab- 
lished as a standard restricted shell 
account. Its default path is set to an 
rbin directory that contains only the 
two harmless commands echo and 
cat (line 1); its level 1 prompt is set to 
the phrase ‘Type CNTRL-D now ...” 
(line 2). When the .profile ends or if a 
user breaks out of the .profile with 
the delete key, even those who know 
Unix will be powerless beause the 
commands in the rbin directory per- 
mit nothing but the display of text to 
the screen. The prompt continually 
reminds them of the key sequence to 
exit from the system. 

Though somewhat lengthy for a 
-_profile, the account request shell 
script is quite simple. It first verifies 
that the user wants to sign up for an 
account (line 5). Assuming the user 
does want an account, the script then 
enters a loop to collect name and ad- 
dress data (lines 13-43). After data 
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have been entered, the user is given a 
chance to view the data (lines 33-38) 
and to correct it if necessary (lines 
42-43). This process is repeated for 
the user ID and initial password (lines 
47-60). Note that the system’s pass- 
word format is not enforced during 
the account request process. This is 
because initial passwords will be es- 
tablished by the superuser, bypass- 
ing the format restrictions. Finally, 
the script writes the data to a text file 
(lines 63-71). 

The new account's .profile does 
not actually establish new accounts. 


I wrote 
two routines 
to keep records 
of svstem 
and command 
use. 


This must be done manually by com- 
pleting the following steps: 


1. Make an entry in /etc/passwd for 
the new user. 

2. Enter a password for the new user. 
3. Create a directory for the new 
user. 

4. Copy the BBS .profile into the new 
user's directory. 

5. Make an entry in ./u/bbs/rbin/ 
user.file for the new user. 


Steps 1 and 2 must be performed by 
the superuser. The remaining steps 
are performed by the system opera- 
tor (the account sysop). The sysop ac- 
count owns all BBS accounts and their 
files. This prevents BBS users from 
viewing and/or modifying their 
own .profiles, an additional security 
measure often used along with the 
restricted shell. 


Providing Organizational 
Information 

The shell scripts that you have seen 
up to this point are generic; they 
might be used to support just about 
any BBS. The info account, however, 
provides a function needed by Scho- 


lastech that isn’t typically found 
with most bulletin boards. Info’s 
.profile (Listing Eight, page 88) works 
much like the new account’s .profile 
to display information about upcom- 
ing Scholastech events and to allow 
users to register for workshops on- 
line. 

Like new’s .profile, the script first 
establishes a special rbin directory as 
the account's default path (line 1); in- 
fo’s .profile contains nothing but 
three text display commands—cat, 
echo, and more. It also changes the 
level 1 prompt to ‘“‘Type CNTRL-D 
now ...” (line 2). It then prints a wel- 
come heading (lines 4—5) and displays 
the contents of a text file with the 
welcome message (line 7). The actual 
information about upcoming events 
is stored in the more extensive info 
file, which is displayed page by page 
using the Unix command more (line 
11). 


Workshop sign-ups are straightfor- 
ward. Users are prompted to enter 
registration data (lines 20-37). The 
profile then appends that data to a 
text file (lines 38-43). The registration 
file is later printed and turned over 
to the Scholastech personnel in 
charge of the workshops. 


System Monitoring 

It is important for any BBS sysop to be 
aware of everything that is happen- 
ing on the system. While users are 
logged in, their activites can be moni- 
tored with the Unix ps command, 
which displays the status of all active 
processes. There is, however, a fur- 
ther need to keep records of system 
and command use. Unfortunately, 
the 7300’s implementation of Unix V 
does not include the standard Unix 
accounting functions. I therefore 
wrote two routines that display and 
reformat data from a system log file 
and from the log file written by each 
BBS shell script in order to obtain ar- 
chival information. 

The two shell scripts are logs, 
which displays data to the screen, 
and usage, which creates a printed 
report. Both rely on process begin- 
ning and ending data kept by Unix in 
the system file /etc/wtmp. Normal- 
ly, /etc/wtmp is cleaned out every 
time the system is rebooted. This can, 
however, result in a loss of data 
whenever an unexpected power 
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PROLOG CLEARLY & 
SIMPLY EXPLAINED 


APT is designed to make learn- 
ing easy, and most of all, fun. If 
you had the choice between read- 
ing text, looking at code, or ex- 
perimenting on your own, what 
would you choose? Well, you don't 
have to choose with APT. 


Prolog concepts are described 
in text form and then demon- 
strated by example using the Pro- 
log interpreter. Use the interpreter 
as a practice environment to try 
your own ideas and get immediate 
feedback. A single keystroke tog- 
gles you between the tutorial text 
and the practice interpreter. Write 
a program and execute it without 
leaving the tutorial environment! 


Ta 


i 
FS 


Pules can refer to other rules, as well as to facts. Therefore, 
we can urite “list conmections/1" just like “list_things/1” 


s 

ie , 
BN, % 
2 


~ add. 
list_connections(Place) :- 
conmect(Place,X), 


et CaM MSs oie 


BUILD APPLICATIONS 


INTERACTIVELY 


Learn by doing. The interpreter 
takes you step-by-step through the 
development of: 

* an adventure game 

¢ an intelligent genealogical 
database 

¢ an order system 

¢ an identification expert system 

¢ a natural language user 
interface 

As you progress, the programs 
get more sophisticated, building 
on the information you've already 
learned. By the end of the tutorial 
you have built many working 
Prolog applications. 

The special Prolog interpreter 
included with APT is designed for 
education and is 
integrated with the 
tutorial package. It 
is not appropriate 
for production 
applications. 


SYSTEM 


APT requires an IBM 
PC, AT or compatible 
hardware with 512K, 
and PCDOS 2.0. 


REQUIREMENTS 


SEEING IS BELIEVING 


In order to understand the 
power of Prolog, it is important 
you know how it executes. Tradi- 
tional teaching tools are ineffective 
in presenting what happens as Pro- 
log executes. APT has 3 invaluable 
tracing mechanisms which will 
literally show you: 


¢ the execution pattern of Prolog, 
and clause order importance, 

¢ how values are passed up and 
down in a recursive Prolog 
routine, and 

¢ how a Prolog query is 
processed. 


EASY TO USE 


- Manipulate the tutorial with 
single keystrokes. 

- Move to prior pages easily. 

- Instantly access any chapter 
from the table of contents. 

- Automatically begin where you 
left off. 

- All work is automatically saved 
when you leave the tutorial. 

- The Prolog syntax you learn is 
compatible with: 
the Clocksin & Mellish standard, 
Arity Standard Prolog, and 
Arity Compiler/Interpreter 
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UNIX BBS 
(continued from page 60) 


failure occurs. I therefore made a 
modification to the system routine 
.cleanup, which is executed by the 
system boot routine rc, and turned 
the line > /etc/wtmp into a com- 
ment to prevent its execution (I could 
have just as easily deleted it). 

Logs (Listing Nine, page 90) first 
creates a temporary file (/u/user.log) 
that contains the user’s name and the 
time logged on for each remote user 
with the Unix command who. A pipe 
to the Unix command grep extracts 
all entries that contain ph1 (line 1). Be- 
cause the device name for the inter- 
nal modem being used by the BBs is 
ph1, the grep will include log-ins on 
that line and leave out all other de- 
vices (the console is usually either w1 
or w2, for example). If the logs com- 
mand is issued with an argument a 
(line 2), logs displays the entire con- 
tents of both the temporary file (line 
8) and the BBS command log file (line 
15). If no argument is included, logs 
displays only the last ten lines of the 
two files (lines 21 and 26). Finally, 
logs removes the temporary file it 
created (line 29). 

Usage (Listing Ten, page 90) creates 
two printed reports. The first is a co- 
lumnar listing of the user’s name, the 
date, the time on, and the time off for 
each log-in contained in /etc/wtmp. 
The second is simply a hard copy of 
the BBS command use file. Usage is a 
“dangerous” shell script; one of its 
functions is to reinitialize /etc/ wtmp 
(line 17). It is therefore extremely im- 
portant that no user other than the 
system operator should have any 
rights to the program (that is, its per- 
mission line should appear as -rwx----- 
-). Why shouldn’t other users be al- 
lowed to read usage? Read rights 
allow another user to make of copy 
of a program to put in their own ac- 
count. Once the copy is made, the 
user becomes the owner and can ex- 
ecute the script, wiping out /etc/ 
wtmp and destroying system use 
data. 

The logic behind usage is tied to the 
way in which data are stored in /etc/ 
wtmp. There is one record for every 
process that starts and every process 
that ends (the two exceptions are the 
processes LOGIN and rc). The trick to 

capturing log-on and log-off times is 


62 


therefore to match up the entries for 
any given user. Because the user run- 
ning the program will not have 
logged off, the program must be 
careful to exclude that user from the 
report. The particular version of us- 
age that appears in Listing Ten han- 
dles only remote users on the device 
ph1. In this case, the code doesn't 
need to worry about excluding the 
system operator who is running the 
program from the console. If, how- 
ever, users on other devices are to be 
included, two things must happen: 


It is extremely 
important 
that no user 
besides the sysop 
has rights 
fo usage. 


1. The code for assembling the report 
must be duplicated for each device 
(records for concurrent users are in- 
terleaved in /etc/wtmp). 

2. The name of the user running the 
program must be excluded from the 
report because there will be no 
matching process termination re- 
cord for that user. 


The usage script first creates the 
system use report. It writes report 
headings to a temporary output file 
(lines 1-3) and then begins to assem- 
ble the body. The body is assembled 
in the following manner: 


1. A log-on record for each user en- 
tering the system on ph1 is extracted 
and stored in the file temp1 (line 4). 
2. The first field of the record, the 
user name, is cut from temp1 and 
stored in temp2 (line 5). This forms 
the leftmost column of the report. 

3. The log-on time is cut from temp1 
and stored in temp3 (line 6). This 
forms the middle column of the 
report. 

4. A log-off record for each user en- 
tering the system on ph1 is extracted. 
The log-off time is cut from the re- 
cord and stored in the file temp4 (line 





7). This forms the rightmost column 
of the report. 

5. The three temporary files contain- 
ing the contents of the columns of 
the report are put together side by 
side with paste (line 8). 

6. To complete the process, the re- 
port is formatted for output with the 
Unix pr command (line 9). The tem- 
porary files are removed (lines 10- 
14). 


Records in the BBS command use 
log file (/u/bbs/log.file) are already 
in columnar format (they were writ- 
ten in such a manner by each BBS 
shell script). Therefore, they are sim- 
ply formatted for output with pr 
(line 15). The log file is also reinitia- 
lized (line 16). Both reports are then 
sent to the printer (lines 18 and 19). 
Note that usage does not delete the 
two final output files because doing 
so before the files have actually been 
printed can disrupt the printing 
process. 


Acknowledgment 

I received both the XMODEM file 
transfer program and a great deal of 
help from David Watson, who oper- 
ates a Unix/Xenix BBS in my area. 
Though I thanked him profusely at 
the time, I think he deserves a public 
acknowledgment for his generosity 
and patience in putting up with 
some of the elementary (dumb) ques- 
tions I asked when I was first work- 
ing on my BBS software. 


Availability 

All the source code for articles in this 
issue is available on a single disk. To 
order, send $14.95 to Dr. Dobb’s Jour- 
nal, 501 Galveston Dr., Redwood City, 
CA 94063 or call (415) 366-3600 ext. 
216. Please specify the issue number 
and format (MS-DOS, Macintosh, 
Kaypro). 


DDJ 


(Listings begin on page 80.) 


Vote for your favorite feature/article. 
Circle Reader Service No. 7. 


Dr. Dobb’s Journal, June 1987 


Gand Pascal one 


Motorola MC680x0 
(w/wo 68881) 


National 


Atari's , Semiconductor ° 


NS320xx 


GEM-DOS 





Apollo, Sun, etc. 





BSD 4.x 
D O S 286, 386 | system 
MS-DOS 287, 387 V.x BSD 4.x D - G 
FlexOS IBM PC ATI yenx ULTRIX \/ eK 





Compaq... 


BsD4x Resident, 


IBM Embedded IBM 
RT PC and Cross 370 


We cut our teeth on UNIX, but have become famous on MS-DOS, which we enhanced with our UNIX-like DOS 
Helper ™ utilities: find (including tar), fgrep, cat, Is, mv, tail, uniq, and we; and our superior optimizing compilers: 


Professional Pascal ™ and High C ™ on the PC are now well-respected by organizations such as Ansa, 
Ashton-Tate, AutoDesk, Boeing (BCS), Daisy Systems Corp., Deloitte Haskins & Sells, Digital Research, GE, IBM, 
Lifetree, Migent, Multimate, NYU, Silvar-Lisco, Sky Computers, Symantec, Xerox/Ventura, ...and Computer Lan- 
guage magazine; Dr. Dobbs’ Journal; PC Tech Journal; PC Magazine; the Journal of Pascal, Ada, and Modula-2... 


We supply the first, and still only, compilers generating 32-bit protected-mode code for the 80386 under 
MS-DOS. And our newly upgraded MS-DOS real-mode compilers were used by Symantec for their Q&A™ product 
to exploit the power of the 80386 real-mode instruction set. (Just released: HC v1.4 and PP v2.7, May 1987.) 


Our C Validation Suite will blow your C compiler out of the sea, while our C compiler tracks the emerging ANSI 
Standard and generates tighter code with far better lint-like feedback help than competing compilers. 


And you'll love Professional Pascal's Ada-like packages, true data abstraction, C-like bit manipulation, and much 
more, along with the tight code that is linkable with High C, or other C, object modules (and vice versa). 


Our Translator Writing System (TWS) goes far beyond LEX and YACC, with fully automatic error recovery... 
All uniformly implemented on UNIX, VMS, CMS, MS-DOS, FlexOS... 
Professional software developers in need of industrial-strength tools should contact: 


“10 MetaWare Incorporated 
Wet Lia 903 Pacific Avenue, Suite 201 
Santa Cruz, CA 95060-4429 

(408) 429-6382 (META) 


INCORPORATED Telex: 493-0879 (META Ul) 


The Clear Choice for Large Programming Projects. 


BRmee ee = 











Name Circle what interests you: 

Company Product: PP HC TWS_ DOS Helper (DOS only 
Address Platform: Vx 4x DOS  FlexOS VMS - = CMS 
City, ST Zip Sun Apollo Atari VAX 370 
Phone: ( ) 8086-family 80386pm 680x0 320xx 








© 1987 MetaWare Incorporated. MetaWare, High C, Professional Pascal, and DOS Helper are trademarks of MetaWare Incorporated. Others/owners: Ada/DoD; Apollo/ 
Apollo; Atari/Atari: DEC, VAX,VMS/DEC; FlexOS,GEM-DOS/Digital Research Inc..; IBM.RT PC/IBM: MS-DOS/Microsoft; Q&A/Symantec; Sun/Sun; UNIX/AT&T. 


Footnotes: 1. Atari, CMS versions available 7/87. 2. NS320xx version by special order. 3. UNIX not yet available on 370. DDJ 06/87 
CIRCLE 95 ON READER SERVICE CARD 


—~COMPORT DRIVER __ 


Listing One (Text begins on page 42.) 





title extended int 14 handler 
name excom 


(C) 1987, Crystal Computer Consulting Inc. 
This software may be used freely, at your own risk, 
as long as this notice is not removed. 


Se Te Ye Fe Be 


AND STATISTICAL 


_text segment word public ‘code’ 
SYSTEM assume cs: text, ss: text, ds: text, es: text 
for IBM PC/ XT/AT’s org 0100h ; com-able 
and Compatibles start: + must be first 
: jmp excom 
written by Lee E. Edlefsen 
: and Samuel D. Jones coal 
. ; misc constants 
Save Thousands save Days in BUFSZ equ 0100h ; butter size Lee 
i i . XOFFSZ equ OOFOh : input flow control turn o po 
In Mainframe - so Programming XONSZ equ OOEOh ; input flow control turn on point 
> Time! DTR equ 00lh ; select DTR input flow control 
5 ‘ RTS equ 002h s select RTS input flow control 
om Re XNXF equ 004h ; select XON/XOFF input flow control 
iy I i: OUT2 equ 008h ; bit to set OUT2 
No NOCTS equ 010h : CTS not required to transmit 
Sh ee NODSR equ 020h ; DSR not required to transmit 
Pid B19200 equ 040h * set baud rate to 19200 
LASERS B38400 equ 080h ; set baud rate to 38400 
C1MASK equ 010h # coml mask for 8259 
C2MASK equ 008h ; com2 mask for 8259 
1S : structure for port control blocks 
Powerfull \“ 4 Extremely Ae ee 


Fasti putptr dw ? 


points to last char put 


getptr dw ? ; points to next char - get 
} bufcnt dw 2? ; number of characters in buffer 
Easy fo Learn and Easy fo Use! bufend dw ? ; address past buffer end 
timeout db ? ; timeout outer loop 
The New Standard for Scientific — i 3 PEER atta re lekabest 
rxoff db . ; set if recv has been stopped 
opts db Z ; holds extended options 
lchar db ? ; holds character attributes 
“I used to use FORTRAN and PASCAL for languages, oldier db 2 ; old interrupt enable register 
TSP and Minitab for statistics, MATLAB for math, and ee on ; : To eb a gon eh plac acto 
aS ge a rR la Now I just olddll db 2 ; old band. low dielsex latch 
: olddlm db ? ; Old baud high divisor latch 
Dr. Choon-Geol Moon buf dw BUFS2Z dup (?) ; the buffer 
Stanford University pcbs ends 
; allocate storage for port control blocks 
© STATISTICS (means, frequencies, crosstabs, regression, non- pcb pcbs 2 dup (<>) # array of port control blocks 
parametrics, general max liklinood, non-linear least squares, 
simultaneous equations, logit, probit, loglinear models, & mor o1d0B dd 2 ; old vector for int0B 
"4 ”e °9 eae Senne olddc dd 2? 3 Old vector for int0c 
© GRAPHICS (publication quality 2D & 3D: color, hidden line oldl14 dd 2? : old vector for intl4 
removal, zoom, pan; up to 4096 x 3120 resolution; produce Saeens S e ? fURES MEER 'SSK- S09 
Tektronix format files; output to most screen drivers, plotters, : baud rate table for UART initialization 
printers) bauds dw 0417h ; divisor for 110 baud 
© PLUS: dw 0300h ; divisor for 150 baud 
. dw 0180h ; divisor for 300 baud 
° dw 00COh ; divisor for 600 baud 
DATABASE MANAGEMENT dw 0060h ; divisor for 1200 baud 
© SIMULATION ¢ TIME SERIES/SIGNAL PROCESSING dw 0030h : divisor for 2400 baud 
* LINEAR PROGRAMMING dw 0018h ; divisor for 4800 baud 
FI dw 000Ch : divisor for 9600 baud 
* NON-LINEAR OPTIMIZATION baudl9 dw 0006h ; divisor for 19200 baud 
¢ NON-LINEAR EQUATION SOLUTION baud38 dw 0003h ; divisor for 38400 baud 
© INTERACTIVE MATRIX PROGRAMMING 
LARGE-SCALE MODULAR PROGRAMMING RDEV EGER PREP TES DAS OTE RENTS SEP SP SA SIRTT SS FERAL TAIT AIRES ESS EST SSIN IETS 


* ADD YOUR OWN COMMANDS : OBh & 0Ch (com2 & coml) interrupt handler : 
¢ LINK FORTRAN, C, ASSEMBLER SUBROUTINES ; put characters into the appropriate buffer ; 
; input flow control - stop input when buffer nears full ; 


eee eee eee ene eeeeee eases see ee eee 
PPP HTH HEHEHE HOH OHHH EEE HOPE PEPER OPPO PERF EDO ORO OER EPO CEL ODODE bDEEDD 


intoOB: 
: point to com2 port control block with ds:si 
push ds 
pro vith oF push si 
uae ee mov si, cs 
Call or Write: mov ds, si 
APTEC P.O. Box 6487 lea si, pcb + size pcbs 
| Kent, WA 98064 jmp short al0 
SYSTEMS, INC. | (206) 634-6679 intoc: 
: point to coml port control block with ds:si 
30-DAY MONEY BACK GUARANTEE push ds 
push si 
The GAUSS Mathematical MOV si, cs 
and Statistical System mov ds, si 
The GAUSS Programming lea si, peb 
Language (alone) ald: 
Shipping/ handling ; push di 
— push dx 
GAUSS requires an IBM PC/AT or compatible, 320K (512K required push bx 
for high resolution graphics) DOS 2.10+, and a math coprocessor). push ax 


NOT COPY PROTECTED 





*# read character, if this fills buffer to XxOFFSZ, then send 
* XOFF or drop DTR and/or RTS as indicated by extended options 


(continued on page 66) 
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Right at your fingertips 
in CompuServe’s IBM" 
Forums. 


In the IBM New Users Forum youl 
swap ideas with other new PC users, learn 
to use Forum features, and pose even 
basic questions to PC experts. 

Our IBM Junior Forum gives PCjr* 
users a reliable source for tips on software, 
hardware, telecommunications, games 
and other interests. 

In the IBM Software Forum you'll 
trade tips with other IBM PC and AT users 
on utility software, word processing, DOS 
and other operating systems. 

Visit the IBM Communications Forum 
for advice on the features and compatibil- 
ity of communications software and 
hardware, PC Bulletin Boards, micro- 
mainframe interfaces and more. 

The IBM Hardware Forum addresses 
hardware topics of all types, plus product 
updates and announcements. 


Easy access to free software, 
including FREE uploads. 

e Download first-rate, non-commercial user- 
supported software and utility programs. 


e Upload your own programs free of connect 
time charges. 


e Take advantage of CompuServe's 
inexpensive weeknight and weekend rates 
(when forums are most active, and standard 
online charges are just 10¢ per minute). 


© Go online in most major metropolitan 
areas with a local phone call. 


e And receive a $25.00 Introductory Usage 
Credit with purchase of your CompuServe 
Subscription Kit. 


Information you simply can’t find 
anywhere else. 


Use the Forum Message Board to send 
and receive electronic messages, and pose 
specific questions to other IBM and com- 
patible owners. 

Join ongoing, real-time discussions in a 
Forum Conference. 

Search our unparalleled Forum Data 
Libraries for free software, user tips, tran- 
scripts of online conferences and more. 
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Enjoy other useful services like: 

¢ Popular Computer Magazines—electronic 
editions, for your reading pleasure. Including 
Dr. Dobb’s Journal and Computer Language. 
¢ Other CompuServe Forums—supporting 
LOTUS® products like Symphony™ and 
]-2-3™ Borland International? Ashton-Tate? 
Digital Research® MicroPro? Microsoft? 
Software Publishing® and others. 


All you need is your IBM or IBM- 
compatible computer and a modem 
...or almost any other computer. 

To buy your Subscription Kit, see your 
nearest computer dealer. Suggested retail 
price is $39.95. To receive our free bro- 
chure, or to order direct, call 800-848-8199 
(in Ohio, call 614-457-0802). If you’re al- 
ready a CompuServe subscriber, type GO 
IBMNET (the IBM Users Network) at any 
! prompt to see what you've been missing. 


CompuServe’ 
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5000 Arlington Centre Bivd., Columbus, Ohio 43220 
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A Reconfigurable 
Programmer’s Editor 
With Source Code 


ME is a high quality programmer’s 
text editor written specifically for the 
IBM PC. It contains features only 
found in the more expensive pro- 
grammer’ text editors. These 
features include: 


e Multiple Windows 
e Column cut and paste 
e Line marking for source code 
e Regular Expressions 
e C-like Macro Language 
e Reconfigurable Keyboard 
e Capture your DOS session 
e Run your compiler and examine 
errors 
e Comes with useful precompiled 
macros 





New commands and features may be 
added to the editor by writing pro- 
grams in its macro language. The 
language resembles C, much easier 
to write macros in than a LISP based 
language. The macro language 
comes with a rich set of primitives for 
handling strings and changing the 
editor environment, plus most of the 
flow-of-control constructs that come 
in C (for, while, if, break, continue). 


The source code option lets you see 
how text editors are written. You will 
also learn how to write interpreters 
by examining the code to the macro 
language compiler and interpreter. 


The code is written in standard C, 
with several key library routines 
written in assembler for speed. The 
source code option is perfect for 
OEMs and VARs who want to add 
editing or word processing capabili- 
ties to their applications. 


Price for editor and on-line 
documentation — $39.95 
Price for editor with 
complete source— $94.95 
(Please add $2.00 for 
shipping and handling) 


Special offer— New York 
Word word processor— $29.95 
Multi-windowing, mail 
merge, hyphenation, math, 
regular expressions, TOC 
and index generators 


MAGMA 
SYSTEMS 


138-23 Hoover Ave., Jamaica, NY 11435 
(718) 793-5670 
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Listing One (Listing continued, text begins on page 42. ) 


mov di, (si) .putptr ; buffer put pointer 
mov dx, [si] .pbase 
in al, dx : read character and clear interrupt 
mov ah, al 
cmp (si) .bufcnt, XOFFS2Z 
31 a40 : jump if buffer below turnoff point 
cmp [si] .rxoff, 0 
jne a30 : jump if receive already disabled 
mov {(si].rxoff, 1 ; indicate receiver now disabled 
test [si] .opts, XNXF 
jz a20 
mov ai, -°3*. ~-*9? 
out dx, al ; send “S 
a20: 
MOV bl, [(si].opts 
and bl, DTR or RTS 
jz a30 
add dx, 4 
in al, dx 
not bl 
and al, bl 
out dx, al ; drop DTR and/or RTS 
sub dx, 4 
a30: 
; if the buffer is full, set overflow status and exit 
cmp {si).bufcnt, BUFSZ 
jl a40 
or word ptr [(di}), 0200h 
jmp short a99 
a40: 
s read the port status 
add . 
in al, dx 
; get new buffer pointer, adjust for wrap around if required 
inc dai 
inc di 
cmp di, (si) .bufend 
jne a50 
lea di, (si) .buf 
a50: 
; store new buffer pointer and put status:data into the buffer 
mov {si].putptr, di 
xchg ah, al 
mov {di}, ax 
inc {si) .bufcnt 
a99: 
+ send interrupt complete command to interrupt controller 
mov al, 020h 
out 020h, al 
pop ax 
pop bx 
pop dx 
pop ai 
pop si 
pop ae 
iret 
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14h interrupt handler 
emulate pc bios functions plus extensions 


dx is used to select the port for all calls 
dx = 0 for coml, dx = 1 for com2 


ah = 0 initialize the port, parameters in al 
al bits 7-5 set the baud rate 
000 = 110, 001 = 150, 010 = 300, 011 = 600 
100 = 1200, 101 = 2400, 110 = 4800, 111 = 9600 
al bits 4-3 set the parity 
00 = none, 01 = odd, 11 = even 
al bit 2 is number of stop bits 
0 = 1 stop bit, 1 = 2 stop bits 
al bits 1-0 set the word length 
00-5, 01-6, 10-7, 11=8 
returns ah & al as per comm status (ah=3) below 
example: ah = 10101110 is 2400 baud, 
odd parity, 2 stop bits, 7 bit characters 


ah = 1 transmit the character in al, al preserved 
returns ah as per comm status (ah=3) below 


ah = 2 return receive character in al 
returns ah as per comm status (ah=3) below 
only bits 1-2-3-4-7 can be set 
ah having any bits set is a receive error or timeout 


ah=3 return comm port status in ah & al 
ah bits are: 
bO = data ready bl = overrun 
b2 = parity error b3 = framing error 
b4 = break detect bS = xmit holding reg empty 


bé = xmit shift reg empty b7 = timeout 
al bits are: 


0 = delta CTS bl = delta DSR 
b2 = trail edge ring b3 = delta recv detect 
b4 = CTS bS = DSR 
b6 = ring indicator b? = recv signal detect 
ah=4 extended options 


returns O5A5A in ax, used to identify excom 
al contains options as follows: 


De Se Se Ve Se Be Ve Be Be Se Se Se Se Ve Se Ye te Ve Ye Se Se Be Se Ve Te Se Ye Se Se Se Se Be Be Ye Be Ve Ye Ye Se Be Be Be Be Be 


(continued on page 70) 


Dr. Dobb’s Journal, June 1987 





When we founded Programmer's 
Connection in 1984, we dedicated 
ourselves to providing high quality 
personal service to every cus- 
tomer. Since then, weve quickly 
grown to be the leading inde- 
pendent dealer in this industry. 


CELEBRATE 
WITH US 


To celebrate our success, we're 
offering special sale prices on 
many of our products. We're also 
featuring some select, high-quality 
products on this page that repre- 
sent exceptional values. 

As we now enter our fourth 
year of business, wed like to say 
“thanks!” fo all of you who gave 


us the opportunity to serve you. 


And to those of you who havent 
yet discovered our low prices and 
quality service, we extend a hearty 
invitation to give us a try You'll 
be glad you did! 


Turn the page for our latest 
advertised price list. 


Sale prices effective through 
June 30, 1987. 


Call or write for our FREE 
comprehensive price guide. 


..tnanks! 


TURBOsmith by Visual Age 
iS a powerful debugging en- 
vironment for Turbo Pascal 
featuring automatic, multi- 
window readout of your source 
programs and variables. Trace 
and breakpoint with single- 
keystroke commands and 
watch the values of variables 
and expressions change. 
Supports Overlays, .COM 
and chain files. Synchronized 
Machine Code window has 
built-in assembler for in-line 
work. 
List $69 Ours $59 


PERSONAL COBOL by Micro 
Focus is a fully-integrated 
program development system 
for creating sophisticated 
applications on your IBM 
Personal Computer or Per- 
sonal System/2. This versatile 
package comes complete with 
a full-screen text editor, source 
code generator for screens, 
syntax checker, automatic file 
handling and an interactive 
source-level debugging facility. 


List $149 Sale $99 


*PURCHASE A SUPPORTED 
C COMPILERand receive 50% 
off any of the following librar- 
ies (when purchased on the 
Same order): 


Without “With 


Data Management 
Consultants 
Zview Screen Mgmt 
Library $245 $139 
Essential Software 
C Utility Library 185 119 
Essential Graphics 250 183 
Essential Comm Library 185 125 
with Breakout Debugger 250 189 


CIRCLE 129 ON READER SERVICE CARD 





List Language Language 


QUALITY. We carry the finest 
selection of the best programmer's 
development tools specifically for 
IBM Personal Computers and 
compatibles. They are the latest 
versions and most come with 
return guarantees or evaluation 
periods. 


SUPPORT. Our courteous, know- 
ledgeable, non-commissioned 
salespeople are always ready to 
assist you. Our experienced tech- 
nical consultants can answer 
questions about products and 
provide sound, unbiased advice. 


PRICE. UPS Ground shipping is 
FREE to all U.S. customers. There 
are no extra charges for credit 
cards, CODs, purchase orders, 
sales tax (except Ohio) or special 
handling (except for export pre- 
paration). Quite simply, the prices 
on the next two pages are all 
you pay. 


INTEGRITY. We’re very proud 
of the trust weve earned from 
our customers and pledge always 
to be worthy of it. 





arity products 


Arity Combination Package. ............. 1095 
Expert System Development Pkg......... 295 
File Interchange Toolkit.............. 50 
PROLOG Compiler & Interpreter.......... 650 
screen: Design WOOIKit . oo eee 50 
SQL Development Package............. 295 

Arity PROLOG Interpreter... ........2... 295 


Arity-scanderd Proleg . 2s ek. el ee dk 95 
ai-expert systems 


Ist-CLASS by Programs in Motion. .......... 495 
Autolntelligence dy /nte//igenceWare.......... 990 
ExpertEDGE Advanced by Human Edge ........ 2500 
ExpertEDGE Professional by Human Edge... .... 5000 


Experteach Il by /nte/ligenceWare........ oe 475 
EXSYS Development Software by EXSYS ........ 

EXSYS Runtime System 
Insight 1 dy Leve/ Five Research... ......... 95 


Insight 2+ by Level Five Research .......... 485 
Intelligence/Compiler /nte//igenceWare ........ 990 
Logic-Line Series 1 by Thunderstone ......... 90 
Logic-Line Series 2 by Thunderstone ......... 125 
Logic-Line Series 3 by Thunderstone ......... 150 
ai- lisp language 
GCLISP Go/den Common LISP by Gold Hill... 2... 495 
GCLISP 286 Developer by Gold Hi/) . 2. 1190 
IGELISP by Jntegral Quality < 2 3 mc Se ee 300 
FOLISP by dntenral Quality 2 3. oe eet 270 
Microsoft LISP Common LISP .........0.-. 250 
QNIAL Combines L/SP & APL by NIAL Systems ... . ato 
Starter QNIAL by MAL Systems.......... New 99 
TransLISP from Solution Systems. ........... 95 
TransLISP PLUS from Solution Systems ........ 195 
ai- prolog language 
APT Active Prolog Tutor from Solution Systems... . . 65 
LPA microPROLOG A// Varieties .. 2 2 CALL 
MPROLOG Language Primer LOG/CWARE ...... 50 
MPROLOG P500 dy LOG/CWARE............ 495 
MPROLOG P550 by LOG/CWARE...... 22... 220 
Prolog-86 from Solution Systems... ......... 125 
Prolog-86 Plus from Solution Systems. ........ 250 
Turbo PROLOG by Borland Inti)... 2... 00040. 100 
Turbo PROLOG Toolbox dy Borland Inti)... . 2... 100 
al- smallitalk language 
Smalltaesv oy Digitek 2 9. Selec Se Ge 99 
EGA/VGA Color Option............... 100 
A eg CRS elles iy ts le a 49 
Seria COMM. Ad cs Sa ae. bd 49 


ai- texas instruments 


PEC NUNN IS hs. crs et PO Se as 95 
Personal Consultant Easy............... 
Personal Consultant Plus............... 


apl language 


RPL POORER G OF OPSG on 8 es RY 2 OG 595 
APL*PLUS/PC Spreadsheet Mar by S7SC .... 195 
APL“PLUSIFL. Joeis Vol Vby STSL os i e, 295 
APL*PLUS/PC Tools Vol 2 ty S7SC.. 1... 85 
BILASORAPINGS DY OTOL... oe ee: New CALL 
Financial/Statistical Library by S7SC......... 275 
POUMBL-APL OM Siok Sk ons Code a Pee. bes $5 
SAT MING PICRIOR fc tee aang de ee 5 795 
assembly language 
386 ASM/LINK Cross Asm by Pharlap........ 495 
8088 Assembler w/Z-80 Translator by 2500 AD. . . 100 
Advanced Norton Utilities by Peter Norton... . New 150 
ASMLIB Function Library by BC Assoc... ...... 149 
asmTREE 8-/ree Dev System by BC Assoc... .... 395 
Cross Assemblers Various by 2500 AD......... CALL 
Microsoft Macro Assembler.............. 150 
Norton Utilities by Peter Norton. ........... 100 
scrostipley:dy.FieWs== 3 wei CoS 100 
Turbo EDITASM dy Speedware............. 99 
Uniware Cross Assemblers Various by SOS... . CALL 
Visible Computer: 8088 Software Masters... ... 80 
basic language 
87 Software Pak by Hauppauge. ........... 180 
EXIM Services Toolkit by EX/M............ 50 
Finally by Komputerwerks ................, 99 
Inside Track from Micro Help.............. 65 
MACH 2 by: Mie Help OO. eR SOS a OS 69 
Microsoft QuickBASIC Compiler .........~.. 99 
Peeks 'n Pokes from MicroHelp ............ 45 
Professional BASIC by Morgan. .........«... 99 
S087 Math: Support 3s 00 FG, See 50 
QuickPak by Crescent Software............. 69 
Scientific Subroutine Library by Peerless .... .. 125 
Stay-Res dy MicmNalp 5 one dco oh Se 95 
True ‘Basic-w/Pan-ime ro. eas BR 245 
True Gisig = oe ey ce A Se aims 150 
Run-time Module: 232. 22: 6 eS 150 
VOLIBUS DTT ES aS YS Se SN Bee 50 
Turbo BASIC Compiler fy Borland Intl... ..... . 100 
blaise products 
ASYNCH MANAGER Specify Cor Pascal... . 2... 175 
C POGIS Fiveren os Sn ee oe 175 
EXEC Rogen Ligier on. Bo 95 
LIGHT TOOLS: or Detalight 656 Ao oS a 100 
FERGUS rss S”.. y ees he, Sate, 125 
PROUAL Toube 2. 265-2 sae Sue eee 100 
PASCAL TOOLS: & TOGLS-2 ee 175 
RUNOEE fer Formaner |i <A oe pon oe oe 50 
TURBO ASYNCH PEUS <0 oO 100 
TURBO POWER TOOLS PLUS: | 2.3 boi ee 100 
VIEW MANAGER Specify C or Pascal... ..... | 275 


179 


borland products 


EUREKA Fquation Solver 
Reflex & Reflex Workshop............... 
Reflex Data Base System 
Reflex Workshop 
Sidekick & Traveling Sidekick 


DIGORIEN ees ie ae. Pe eke 

Waveling Sidekicks: =. 2... oo DD. Ds 
SUDOTIIN 62s nod, eS uses New Version 
rhe BASIC Gampifer: 4. oh. BES 
Wee COMPO: i ok. oe ie. ol: New 


Turbo Database Toolbox. ............... 


TtbocGrapnis: Wenn. Fo 6 ees i. 
Turbo Jumbo Pack Combination Package 
Turbo Lightning 
Turbo PASCAL Numerical Methods Toolbox... .. 
Turbo PASCAL and: Tutor... 2.) oe ee 

Turbo PASCAL 

ie Wake oe ee eS 
Turbo PROLOG Compiler................ 
Turbo PROLOG Toolbox................. 
Word Wizard 


ott 


C++ by Guidelines w/ version 1.1 kernel... .... . 
PforCe++ function Library by Phoenix ........ 


c compilers 


C86PLUS by Computer Innovations........... 
Datalight C Compiler Sma// Mode/ .......... 
Usteright Hoveloner Rit 2 2. ea eee 
Datalight Optimum-C 
DeSmet C w/ Debugger & Large Case... ....... 
DeSmet C w/Debugger Only .... 2... 2. 0 we. 
Eco-C with Graphics by Ecosoft............. 
Lattice C Compiler vers. 3.2 from Lattice. .... Sale 
Mark Williams Let's C Combo Pack. . . New Version 


Let s-0 Compiler: 5 eS aes New Version 

csd Source Level Debugger ....... New Version 
Microsoft C with CodeView............... 
Turbo C Compiler by Borland Int)... ...... New 


Uniware 68000/10/20 Cross Compiler dy SOS... 


c interpreters 

C-terp by Gimpel, Specify compiler. .......... 
C Trainer with Book by Catalytix........0... 
Instant C by Rational Systems ........... Sale 
Introducing C by Computer Innovations. ........ 
Run/€ dy: Age of Reason sos on a a ed 
Run/C Professional by Age of Reason. ........ 


c utilities 
C to dBase by Computer Innovations. ......... 


c-tree & r-tree Combo dy FairlCom........ Sale 
c-tree /SAM File Manager ........... Sale 
r-tree Aeport Generator... .......... Sale 


C Windows dy Syscom 
Cine: BY SO Teen ne 
Cl ROMPac by Computer Innovations .......... 
dBx dBase to C Translator by Desktop AL... 2... 
with Library Soutte Lodes . oi oa oo a 
Various Support Utilities... 2... 
EASY SCREEN by Retai/ Mgmt Systems... .. . New 
Pnislekne-Prmdncte. fate Ro 
Flash-up Windows dy Software Bottling... ..... 
GraphiC Color version by Sci Endeavors......... 
SMAPLIG Dy AOA, 2 a ae en 
HALO Graphics by Media Cybernetics... 2.2.2... 
HALO Development Pkg for Microsoft... .... Sale 
The HAMMER dy OES Systems............. 
PANEL forms Management by Roundhil/ 
PANEL Plus.dy foundbill. se New 
PC Lint by Gimpe/ Software............... 
PEBTHE Oe SOUESON toe ee Fk Sete. 
PLOTHE OY MeO soe ee La dee. 
Professional C Windows by Washburn... ..... 
Scientific Subroutine Library by Peerless .... . . 
screenplay for C by Fleus............... 
Vitamin C by Creative Programming. .......... 
VC Screen forms Designer. ............ 
Zview by Data Mgmt Consultants . . . . See First Page 


cobol language 


Cisuesen oy Flew a. 0s ef A New 
FPLIB for Realia COBOL by BC Associates... . . New 
Micro Focus COBOL See Micro Focus Section... . . 
Microsoft COBOL See Microsoft Section. ....... 
Realia COBOL with RealMENU.......... New 
EEL Oe Pree Sts oe. 
NESE nS ot cpt he! ook Le 
RM/COBOL dy Ayan-McFarland..........- 0: 
RM/COBOL 85 by Ayan-Mcfarland........... 
screenplay for COBOL by Flexus............ 


debuggers & profilers 


386 DEBUG Cross Debugger by Phar lap........ 
Advanced Trace-86 by Morgan Computing. ...... 
Cl Probe by Computer Innovations... .......... 
Codesifter Profiler by David Smith........... 
Codesmith-86 by Visua/ Age... . 2... 
vale f by Sot-Advantes< 2.0... 2. 
ce ey Se ee ee 
Periscope | with Board by Periscope.......... 
Periscope Il with NM/ Breakout Switch 
Periscope II-X Software only 


Periscope Ill w/Advanced Board.......... New 
The PROFILER with Source Code by OWB....... 
TURBOsmith for Turbo Pascal... . . See First Page 
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dos utilities 


Command Plus by ESP Software... 2... 0... 80 69 
FANSI-CONSOLE dy Hersey Micro... .. 22... 75 62 
Norton Commander by Peter Norton. ......... 75 55 
Scroll & Recall by Opt-Tech Data............ 69 59 
Taskview by Sunny Hill Software... 2... 0. 80 55 


essential products 
See First Page for Special Offers. 
C Essentials by Fssential Software... 2... 0.0... 100 fis 


© By LiBIAly..~.-5 wah. |b ei. Se 2 ae ee 185: 119 
Essential Comm Library with Debugger... ..... eau. 7489 
Essential Comm Library Software Only ...... 185 125 
Breakout Debugger Only Any /angquage ...... 125 89 
Essential Griphies.; fu. ada e » ed hee 250 +183 
forth language 
CFORTH Wative Code Compiler by LM/......... 300 229 
Forth/83 Metacompiler Specify Target ........ 750 599 
PC/Forth by Laboratory Microsystems. ......... 150 109 
PC/Forth+ dy Laboratory Microsystems ........ 250 199 
Advanced Color Graphics Support ........ 100 74 
Enhanced Graphics Support............ 200 148 
inte) GOG7-SunpOrt Se us ce laa. 100 74 
Interactive Symbolic Debugger.......... 100 74 
Native Code Optimizer..............., 200 148 


Software Floating Point.............. 100 74 


TD PI ee pet ie is. tee 350 279 
Object Module Libraries.............. 500 395 
fortran language 
50 MORE: FORTRAN by Peerless Engr ........ 125 95 
ACS Time Series A/pha Computer Service. ...... 495 389 
Essential Graphics by Fssentia/ Software. ...... 250 183 
For-Winds A/pha Computer Service... ........ 90 69 
Forlib-Plus A/pha Computer Service .......... 70 44 
FORTEIG fy Sumer. 6 2 Sk a eS 125 109 
FORTRAN Addendum by /mpu/se Engr... . 2... 95 85 
FORTRAN Addenda dy /mpu/se Fngr.......... 165 138 
SSRN EES DE OOO a Dg tes, =. shat yoke! o bh 175-- 189 
HALO by Media Cybernetics... 2... 0. ee 300 205 
1/0 PRO by MEF Environmental... . 2.2.2.4... 149 129 
Microcompatibles Combo Package.......... 240 215 
eRIOIR Ce ces | yee a's ic ube De, tan) bt 
PUPINORIE ec ern ere Ne eek ae a. 117 
Microsoft FORTRAN w/CodeView........... 450 269 
No Limit by MEF Environmental .........2... 129 109 
Numerical Analyst by MAGUS... .......... 295 CALL 
PANEL by Roundhill Computer Systems... . 2.2... 295 CALL 
PT SBI ooo. Fiend wr viet Spb 6 8 ve Tf... 159 
PISA OF SONNE 2 bao! aed ah Ao eto 17o “16S. 
RM/FORTRAN Ayan-Mcfarland..........42.. 595 CALL 
RTC PLUS fortran to C by Cobalt Blue... ...... 325 CALL 
Scientific Subroutine Lib by Peerless... . 2... 176- = £28 je 
Statistician A/pha Computer Service. ......... 295 235 
stati: be PSS Mois oo ee hock Lk a ee 295 239 
SEMUID-Por: OY POL VSIOS 6 Te ea tA, Sapte ys bees 295 239 
Strings & Things A/pha Computer Service... .... 70 45 
greenleaf products 
Greenleaf Comm Library................ 185. - 125 
Greenleaf Data Windows ............... Ze5.- LOP 
WHE DORE LOU is 4, hk ae Oe gf ae. Be 450 289 
Greenleaf Functions.................. 165-125 
help utilities 
BEEP ICONUO BY MOS oe oie eto. wii BP 125 99 
On-line Help from Opt-Iech............... 149 99 
SoftScreen/HELP dy Dialectic Systems ........ 195 149 


lattice products 


Lattice C Compiler ver 3.2 from Lattice 
with. Limary Soumve:COWG >  , ete s BE 
C Cross Reference Generator............. 
WIT SOUTEH CODE F.5d asad Sik he 
C-Food Smorgasbord Function Library. ........ 
WHR Done Lode? ke rc SO eS 
C-Sprite Source Level Debugger............. 
Curses Screen Manager................. 
WAG SOUGE SOU 2275S Sch eye. oo 


CMR SRE fatty: A a SS. 
RPG Il Combo A// three items below... . 2.2... 
RPG II Compiler Wo Royalties 
RPG Il SEU Screen Fntry Utility»... 0... 
RPG OTe MNOIGS. 0, ea Se 
RPG II Screen Design Aid Utility........... 
SecretDisk 4/e Fneryption Utility... 2... 2... 
SideTalk Resident Communications........... 
SSP/PC Scientific Subroutine Library 
Text Management Utilities. .........~2... 
TopView Toolbasket function Library ......... 
WHA SOue C008 62s B.S oo ae 


metagraphics products 





LightWINDOWS/C for Datalight C. 2... New 95 79 
MetaWINDOWS Wo Royalties... 2.2.2.0... 185 109 
soe lad an tee a a ese se) 80 58 
MatsWinvUWslPlus: 0. ee eae oO 235 184 
WOCIBF UMTS (PIUS. ow ie ee ee ee 235 44184 
TurboWINDOW Graphics/ Windows for Turbo Pascal . . 80 58 
micro focus products 
Micro Focus Level I! COBOL w/Animator... . . ew $495 395 
ew ECO eek lt, ete ee ee 349 279 
Lever thingie ee ero ee 10. E55 
Micro Focus Level I! COBOL/ET for UNIX... . New CALL CALL 
Micro Focus Personal COBOL .... . See First Page 149 99 
Micro Focus Professional COBOL.......... 2000 1595 


Micro Focus VS COBOL/XENIX.......... New 1495 1195 





Support Products: 
COBOL/IQ Ad hoc Report Writer... 2.2... New 
COBOL/IO for DOS 3.X Networks... ..... New 


microport products 


System V/AT by Microport Systems. ........ Sale 
Runtime System (Operating System) ........ 
Software Development System .......... 
Text Preparation System.............. 

User Upgrade 3 to Unlimited Users .... 2.2... 


microsoft products 


Microsoft BASIC Interpreter for XEN/IX........ 
Microsoft C with CodeView.............-.. 
Microsoft COBOL w/COBOL Tools... . . New Version 
ie RS Sm nw Se we oe 
Microsoft FORTRAN w/CodeView........... 
ENO cha eee eee ee a ek OE aes 
Microsoft Learning DOS................ 
Microsoft LISP Common LISP... ...0...... 
Microsoft MACH 10 w/ Mouse & Windows ...... 
Microsoft MACH 10 Board only ........2.... 
Microsoft Macro Assembler.............. 
Microsoft Mouse Bus Version ............. 
Microsoft Mouse Seria/ Version... . 2. 2... 
Microsoft muMath /nc/udes muSIMP ......... 
Microsoft Pascal Compiler .............. 
OF Fe oe ole Bee oes ba N Eos ad 
Microsoft QuickBASIC Compiler ........... 
cman SOK .. «cs ra wee eo 2s RE Ome 
Microsoft Windows................... 
Microsoft Windows Development Kit ........ 


modula-2 language 


\OTools by Rhodes Associates... 2... 2 we eee 

WHR SOURCE TOUR. co vs ak we pw re ee 
MODULA-2 Apprentice Pkg by LOGITECH...... 
MODULA-2 Magic Pkg by LOGITECH......... 
MODULA-2 ROM Pkg & Cross RT Debugger ... . 
MODULA-2 Window Pkg by LOGITECH........ 
MODULA-2 Wizard's Pkg by LOGITECH ....... 
REPERTOIRE for MODULA-2 by PM/.......... 

Biject Cate Os oe 6 hae hs we ne oe AS 


mouse products 


LOGIMOUSE BUS with PLUS Pkg by LOGITECH. .. . 
with PLUS & PC Paintbrush... 0... ee ees 
with PLUS & CAD Software ............. 
with PLUS 8 CAD & Paint... 2... ee ee 

LOGIMOUSE C7 with PLUS Pkg, Specify Connector . . 
with PLUS & PC Paintbrush... 0... 2.26 we. 
with PLUS & CAD Software... .......4.. 
with PLUS @ CAD & Paint... sec ec ee wes 


other languages 


CCS MUMPS Single-User by MG/obal......... 
CCS MUMPS Single-UserMulti-Tasking. ........ 
COS MUNNES alli UeeF cobs she acs he te 
Janus/ADA C Pak by A&A Software... ....... 
Janus/ADA D Pak by R&R Software... ....... 
Janus/ADA ED Pak by R&A Software ......... 
Marshal Pascal by Marsha/ Language Systems ... . 
Personal REXX by Mansfield Software. ........ 
SNOBOL4+ by Catspaw 2... 2 ee ee eee 


other products 


Dan Bricklin's Demo Pgm Software Garden. ..... 
Dan Bricklin's Demo Tutorial ......... New 
Disk Optimizer by Softlogic Systems.......... 
FASTBACK dy 5th Generation Systems ......... 
Informix A// Varieties by Informix... . 2... 2+» 
Instant Replay dy Nostradamus ...... New Version 
MKS Toolkit with vi Editor by MKS... ....... 
Net-lools by HE -AMCIAIOS. se es ee se es 
OPT-Tech Sort by Opt-Tech Data Proc.......... 
PC/TOOLS by Custom Software... ........ New 
Screen Machine by MicroHelp .........-. New 
VTEK Jerm Emulator by Sci Endeavors ......... 


phoenix products 


Pasm86 Macro Assembler Version 2.0 ......... 
Pdisk Hard Disk & Backup Utility ... 2.2.0.4... 
Pfantasy Pac Phoenix Combo. ............. 
Pfinish Execution Profiler... .......004445 
Pfix86plus Symbolic Debugger. ............ 
PforCe Comprehensive C Library .........4.. 
PforCe+-+ Library for Guidelines C++ ....... 
Plink86plus Overlay Linker... .........4.-. 
PRONG WIG Ns aie 6 os & oo ee ew 
Pmate Macro Jext fditor. 2... ew ee ee 
PLE se we ME ge PST 6 pt ws 
Ptel Binary File Transfer Program. ........... 


polytron products 
PolyBoost 7he Software Accelerator........... 


BRIRSNeT, 3 4 als le ate Rae Oe New 
PolyDesk Ill Archivist ............. New 
PolyDesk Ill Cryptographer.......... New 


PolyDesk III Talk 
PolyLibrarian Library Manager... .....-.-.-. 
PolyLibrarian Il Library Manager... ........-. 
PolyMake UW/X/ike Make Facility... ........ 
ATES 0 Dk mn ys a mse eS, x cf gee lb mm 
Polytron € ‘Beautiier .:-. ...c. 5 fi he ones 
Quer OE ol Ce. i re ae 
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Polytron PowerCom Communications. ......... 
PolyXREF Complete Cross Ref Utility... 2.2... 
PolyXREF One /anguage only... .. 2... eee 
PVCS Corporate Version Control System ........ 


PYCS Personal 2° sian ear ea RSG . 


PVMFM Polytron Virtual Memory File Mor .. . . New 


program mgmt utilities 


Compact Source Print by A/debaran.......... 
Interactive EASYFLOW dy Haventree ......... 
Print by Software Directions.............. 
Quilt Computing Combo Package . . 
QMake Program Rebuild Utility... . 2.2... 
SRMS Software Revision Mgmt Sys . . New Version 
Source Print by A/debaran Labs... ......... 
TLIB by Burton Systems Software... ......... 
Tree Diagrammer by A/debaran Labs... ....... 


raima products 
dbQUERY Single-User Query Utility .... 1.04... 


Single-User with Source Code. ......... Sale 
RUE he aks one ots Ge Sale 
Multi-User with Source Code. ......... Sale 
dbVISTA Single-User DBMS... 0. 0 ee ee 
Single-User with Source Code.......... Sale 
GHAR ie ee eace sn ite 8s nt Sale 
Multi-User with Source Code. ......... Sale 


sco products 


Complete XENIX System V dy SCO .......... 
Development System................ 
Operating System Specify XTor AT... ...... 
Text Processing Package.............. 

Networks for XENIX dy SCO.............. 

SCO Professional Lotus clone for XEN/X........ 


softcraft products 


Btrieve /SAM Mgr with No Royalties... ....... 
Rew Peery UGNY 6 Ei is ee ve eRe es 
Report Option for Xtrieve.............. 

Btrieve/N for Networks... 2... ee ee es 
WOES. oc ng otal Mee eas ve Dees 
Report Option/N for XtrieveN ........... 


text editors 


Brief & dBrief Combo from Solution Systems... . . 
Brief Programmer's Text Fditor............ 
dBrief Customizes Brief for dBase il]... 2... . 

Epsilon Fmacs-/ike editor by Lugaru .......... 

KEDIT by Mansfield Software... ..........-. 

Micro/SPF by Phaser Systems ..........4.4. 

PC/VI by Custom Software Systems. .......... 

SPF/PC by Command Technology Corp . . . New Version 

Vedit by CompuView..... 2.2... 062 ee eee 

Vedit Plus by CompuView.............4.-. 


turbo pascal utilities 


ALICE /nterpreter by Software Channels. ........ 
DOS/BIOS & Mouse Tools by Quinn-Curtis...... 
Flash-up Windows dy Software Bottling. ....... 
MACH 2 for Turbo Pascal by Micro Help. ..... New 
MetraByte D/A Tools by Quinn-Curtis.. 2.2... . 
Science & Engrg Tools by Quinn-Curtis........ 
Screen Sculptor by Software Bottling......... 
screenplay for Jurbo Pascal by Flexus ......... 
Speed Screen by Software Bottling .......... 
System Builder by Roya/ American. .........-. 
PPS Goer UGH. Saas bik ss wees 08 
MOOR BUNGE! os oa le Ps es 
TDebugPLUS dy JurboPower Software ......... 
Turbo EXTENDER dy JurboPower Software. ...... 
Turbo Professional by Sunny Hi// ... 2... 2... 
TC, ONE LAIST oS onc salts bow x wi cinta bs 
TurboPower Utilities by JurboPower.......... 
TurboRef by Gracon Services .........-0565.5 
TURBOsmith Visua/ Age Debugger. . . . See First Page 


Universal Graphics Library by Quinn-Curtis . . . New 
wendin products 

Operating System Toolbox ........ Rebate Offer 
PCNX Operating system. .......... Rebate Offer 
PCVMS Similar to AXVMS ........ Rebate Offer 
XTC Jext Foitor w/ Pascal source. ..... Rebate Offer 


xenix/unix products 


Btrieve /SAM File Mor by SoftCraft .......... 
C-terp by Gimpel, Specify compiler........... 
c-tree /SAM Mor by Fairlom............ Sale 
dbVISTA See Raima Section. .........2244. 
dBx with Library Source by Desktop Al. .......-. 
DOSIX Console Version by Data Basics ........-. 
DOSIX User Version by Data Basics... .......-. 
Informix A// Varieties by Informix... .. 0.5.44. 
EOEIE BYRD. ous. o's tage Bon se RHE SS 
Micro Focus Level I! Compact COBOL ........ 
Forms-2 
fovel ANIMATOR. =Q2.0). fe eas we eee 
Microport Products See Microport Section ...... 
Microsoft Products See Microsoft Section....... 
PANEL Plus dy Roundhill Computer Systems. . . . New 
REALTOOLS Binary Version by PCT. .......... 
foray Source VISION nc wee gs ee es 
Complete Source Version... 1.2.2.2. ee ees 
RM/COBOL by Ayan-Mcfarland.............- 
RM/FORTRAN by Ayan-McFarland..........-.- 
SCO Products See SCO Section.............- 


CALL 
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245 
150 
185 


105 
169 


309 
109 
CALL 


994 


595 


454 
379 
269 


489 
CALL 
CALL 
CALL 


CALL 
CALL 
CALL 


CALL 


289 
369 
CALL 
CALL 


programmer's connec ion 


CIRCLE 129 ON READER SERVICE CARD 





LOWEST PRICES 


Due to printing lead times, some of our current 
prices may differ from those shown here. Call for 
latest pricing. 


FREE SHIPPING 

Orders within the USA (including Alaska & Hawaii) 
are shipped FREE via UPS. Express shipping is 
available at the shipping carrier's standard rate 
with no rush fees or handling charges. To avoid 
delays when ordering by mail, please call first to 
determine the exact cost of express shipping. 


CREDIT CARDS 

VISA and MasterCard are accepted at no extra 
cost. Your card is charged when your order is 
shipped. Mail orders please include credit card 
expiration date and telephone number. 


CODs AND POs 

CODs and Purchase Orders are accepted at no 
extra cost. POs with net 30-day terms are available 
to qualified US accounts only. 


FOREIGN ORDERS 

Shipping charges for foreign and Canadian orders 
are based on the shipping carrier's standard rate. 
Since rates vary between carriers, please call or 
write for the exact cost. Foreign orders (except 
Canada), please include an additional $10 for 
customs form preparation. All payments must be 
made with US funds drawn on a US bank. Please 
include your telephone number when ordering by 
mail. Due to government regulations, we cannot 
ship to all countries. 


VOLUME ORDERS 


Volume orders may qualify for additional discounts. 
Call us for special pricing. 


SOUND ADVICE 


Our knowledgeable technical staff can answer 
technical questions, assist in comparing products 
and send you detailed product information tailored 
to your needs. 


30-DAY GUARANTEE 

Most of our products (excluding books) come with 
a 30-day documentation evaluation period or a 
30-day return guarantee. Please note that some 
manufacturers restrict us from offering guarantees 
on their products. Call for more information. 


MAIL ORDERS 


Please include your telephone number on all mail 
orders. Be sure to specify computer, operating 
system and any applicable compiler or hardware 
interface(s). Send mail orders to: 

Programmer's Connection 


136 Sunnyside Street 
Hartville, OH 44632 


CALL TOLL FREE 
Bost bed te ksh cae we Oe 800-336-1166 
GRANADA 6.5% Foy nes Fix 800-225-1166 
OHIO & ALASKA 

(Call Collect)........... 216-877-3781 
PRRER |. Peel eis: 9102406879 


FOREIGN....... 
CUSTOMER SERVIC 


Hours: Weekdays 8:30 AM to 8:00 PM EST. 


Ohio customers add 6% state sales tax. 
Prices are subject to change without notice. 
Copyright Programmer's Connection, Inc., 1987. 





weeeeee 216-877-3781 
eset toby 216-877-1110 








C & PASCAL 
PROGRAMMERS 


Blaise Computing provides a broad range of pro- 
gramming tools for Pascal and C programmers, 2 
with libraries designed for serious software ; bi 
: t 
development. You get carefully crafted code ; bit 
that can be easily modified to grow with your ; bit 





Listing One (Listing continued, text begins on page 42.) 


bit 
bit 


enables DTR input flow control 
enables RTS input flow control 
enables XON/XOFF input flow control 
don't require CTS to transmit 
don't require DSR to transmit 

sets baud rate to 19200 

sets baud rate to 38400 


SAW NH OO 


changing needs. Our packages are shipped com- aie 
plete with comprehensive manuals, sample pro- 
grams and source code. 


Se Se Ye Se Se Ye Ve Se Be Be 


ah=5 remove excom, restore old vectors, release memory 


s 
Sig Sut en spare dae s Piss + o¢ese bee tat toes rele 
C TOOLS PLUS coc ce sree crs ecee see se ie eeeeeeeaeasaassesereessseerseeesssssesessseeteeeeeezaaaaaTe 


$175.00 intads 
NEW! Full spectrum of general-purpose utility push de 
functions; windows that can be stacked, re- push si 
moved, and accept user input; interrupt serv- ~ na 
ice routines for resident applications; screen Sah Bx 
handling including EGA 43-line text mode. sup- ; point to selected com port control block with ds:si 
port and direct screen access; string functions; |. ot “ig Med 
and DOS file handling. a. si. pcb 
PASCAL TOOLS/TOOLS 2 32 Dod 
jz b00 
add si, size pcbs 
$175.00 b00: 
Expanded string and screen handling; graphics eg pOKe a ee he return if port not installed 
routines; easy creation of program interfaces; ay dx, “dx. - 
memory management; general program con- jz b40 


trol; and DOS fil ; 
5 S file support ; ah has request type, jump to selected routine 


eaoentaptc hppa ingle eal Saco eg e al e 
VIEW MANAGER 32 pO00 ; initialize 
$275.00 ie D100 } traneait a char 
Complete screen management; paint data entry ses ah 
screens; screens can be managed by your appli- ad es +. verve a che 
cation program; block mode data entry or field- b10: 
by-field control. Specify C or IBM/MS-Pascal. one * 
SS nz 
ASYNCH M AN AGER ii jmp b300 * get status 
$175.00 nce oa | 
Full featured asynchronous communications jmp b400 ; extended initialize 
library providing interrupt driven support for b30: 
the COM ports; I/O buffers up to 64K; XON/ sas te 
XOFF protocol; baud rates up to 9600; modem 4mp b500 3; Kemove excom 
control and XMODEM file transfer. Specify C or 
IBM/MS-Pascal. wane 


pop bx 


Turbo POWER TOOLS PLUS pop a 
$99.95 pep + 


NEW! Expanded string support; extended iret 
screen and window management including EGA : eet a 
support; pop-up menus; memory management; ; initialize the port 
execute any program from within Turbo Pascal; b000: 
interrupt service routine support allowing you push = 
to write ee mOry resident programs; schedul- ; initialize the pcb, this empties the input buffers 
able intervention code. lea ax, (si}).buf 
penn ence ile aie ey NSS STF sr 5 mov (si) .putptr, ax 
Turbo ASYNCH PLUS ai = 
$99 95 mov {si).getptr, ax 
; : : add ax, BUFSZ * 2 
Complete asynchronous communications mov [si] .bufend, ax 
library providing interrupt driven support for sub tale “ia 
. . mov 8 -DbuIcnt, ax 
the COM ports; I/O buffers up to 64K; XON/ aii: feliaeectk. wi 


XOFF protocol; and baud rates up to 9600. 


*# assert flow control signals and enable port interrupts 


RUNOFF add x, 








mov al, DTR or RTS or OUT2 
$49.95 out ax, al 
NEW! Text formatter written especially for pro- Fig al, 021h 
grammers; flexible printer control; user-defined and al, [(si}).mask 
variables; index generation; and general macro os O21h, al + unmask com port on int controller 
o> ‘ 8 
facility. Crafted in Turbo Pascal. ets dx, 3 
mov al,- 1 
EX EC out dx, al ¢ enable receive int on uart : 
$95.00 * set up baud rates and character attributes | 
Program chaining executive. Chain one pro- an oes 
gram from another even if the programs are in oe bl, al 
different languages. Shared data areas can be and al, 01Fh 
specified. mov {si].lchar, al 
mov al, [si).opts 
: and al, B19200 or B38400 
ORDER TOLL-FREE 800-227-8087! jz b010 
call b440 s init only character attributes 
har. jmp short b020 
WW b010: 
wer. a wow op SSS mov cl, 4 
BLAISE COMPUTING INC. at ex. ies {sol 
EAN Nicnske Go eee ‘ ; t 
2560 Ninth Street. Suite 316 Berkeley, CA 94710 (415) 540-5441 worn ne neue Fete eakertion 
CIRCLE 217 ON READER SERVICE CARD contiqmed on Page fA) 
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Data Entry « Menus ¢ Windows «¢ Prototyping « Database °¢ Toolkit 
aaa aaa a a FR a ee Ee na ee 








.. scape 











H@ Total Screen Control/Easy to Use 


C-scape is a combination screen generator and library of 
screen |/O functions. Written for C programmers, C-scape 
brings a proven approach to the need for an easy-to-learn 
and use, but truly powerful and flexible screen manage- 
ment tool. 


C-scape’s kernel is your most powerful ally. Without re- 
quiring parameters you'll never use, it allows you to create 
tailored functions with ease and simplicity. Each key is in- 
dividually definable. If you know printf(), you can use 
C-scape. C-scape’s kernel provides a veritable screen 
design and construction toolkit to rewrite our functions or 
to write your Own. 


—@ Most Powerful Prototyping Available 


C-scape offers a unique approach to prototyping your soft- 
ware. You may use Dan Bricklin’s Demo Program to 
create, edit, and view your screens (you can even capture 
existing screens from other programs), and then use 
C-scapes’s demo2c utility to convert each screen to code. 


You can design each screen with attributes such as colors, 
menu selections, data entry fields (including type, valida- 
tion, and field naming), masking, and text, and then 
automatically convert the entire screen to code. 


H Powerful Function Library 


Use C-scape’s functions for Lotus-like, pull-down, or your 
own menu designs, automatic scrolling, pop-up windows 
(number limited only by RAM), logical colors, help, time 
and date, yes/no, tickertape fields, secure and protected 
fields, and many others, to turn your demo into a fully 
functioning and complete program in a fraction of the time 
spent coding screens from scratch. 


C-scape’s extensive library includes just about all the data 
entry and display functions you'll ever need, including 
money functions, fully definable borders, and orthogonal 
field movement (get the latest list by calling for more infor- 
mation). And modifying our functions or writing your own 
is easy. C-scape adjusts automatically for CGA, EGA, 
monochrome, and the Hercules Graphics Card Plus in 
RamFont mode, and optionally writes directly to video 
memory, so it’s flexible and fast. 


Oakland Group, Inc.@23 


675 Massachusetts Avenue, Cambridge, MA 02139-3309 


@ Bridges to Power 


C-scape includes examples of how to bridge to other 
powerful tools such as c-tree and db__VISTA. You'll be in- 
tegrating demos to dictionaries to file handlers and 
database managers in no time. You can even use C-scape 
to provide the screen design for Al applications, using 
packages that support calls to C. 


H@ Clean, Complete Documentation 


C-scape’s documentation is a clear example of how to write 
for programmers in a hurry. A short introduction uses helpful 
examples to explain the C-scape design. Each function is 
documented separately. An index makes reference easy, and 
a quick-reference card provides a synopsis of each function. 


@ Source Code Included/Portable/No 
Royalties/No Runtime License 


Providing source code at no additional cost gives you the 
freedom to modify existing functions without raising cost as 
a barrier. The source code includes all the low level 
routines you might need to port C-scape to an unsupported 
machine or compiler. Speaking of barriers, you pay no 
royalties or runtime license fees, either. 


@ Toll Free Support and Bulletin Board 


To make your job even easier, we provide technical sup- 
port (toll free), and access to our 24-hour Bulletin Board. 


@ Easy Prices/Risk-Free Terms 

Try C-scape for 30 days. If you are not satisfied, return it 
for a refund. When you register, we send you source code. 
Order C-scape today, or call toll free for more information. 
See why some very major companies are standardizing on 
C-scape. 


C-scape (Lattice/Microsoft/others) Only $199 


C-scape with Dan Bricklin’s Demo Program $259 
C-scape with DB Demo and db__VISTA (RAIMA) $425 


Please add $3 for first class shipping; Massachusetts orders 


add 5% sales tax. 
~=]CALL NOW! 
vrs 


— ~ 800-233-3733 
617-491-7311 
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VERSION CONTROL SYSTEM 


TLIB™ keeps ALL versions of your program in ONE 
compact library file, even with hundreds of revisions! 


e Fastest, most powerful version control system you can 
buy. Nothing else comes close! TLIB updates libraries 
faster than some text editors can load and save files. 





Listing One (Listing continued, text begins on page 42.) 





















e LAN-compatible! Shared libraries with PC Net, Novell, sins call b430 ; init baud and character attributes 
etc. Check-in/out locking for multi-programmer projects. 6020: oe Paige 
e Synchronized control of multiple related source files. 4mp b300 : return status 
e Easy to use. Menu or DOS command line parmeters. 
e Frugal with disk space. Libraries are more compact than : 
with most other version control systems. And TLIB ; ah=1 
uses no temporary files, so you can maintain a 300K '; transmit the character in al 
library on one 360K diskette, with room to spare, even b100: 
with TLIB itself on the same disk. art ri ‘ 
e Free copy of Landon Dyer’s excellent public domain MAKE ane i tad) (amen j 
y - (si}.op 
utility (.EXE, plus source code for DOS & VAX/VMS). not bh 
e Plus: File compare utility. Virtually unlimited source file and bh, NODSR or NOCTS 
size. Date, comments with each version. Configurable : optionally wait for DSR and/or CTS 
user interface, and many configurable options, like: read- call te 
only libraries; automatic tab/blank a ee Peiee aa 
of revision history comment block in the source file. ice bh, 020h 
PC/MS-DOS 2.x & 3.x Just $99.95 + $3 s/h Visa/MC ; wait for ie transmitter to be ready 
call b13 
BURTON SYSTEMS SOFTWARE i bi20_ 
= push ax 
(919) 469-3068 s actually send the character 
out ax, al 
call b310 
CIRCLE 212 ON READER SERVICE CARD Ang short. bi2o 
Pe neet b110: 
Llanes oie ; restore al and indicate a timeout (bit 7 of status, ah) 
disassemblers call b310 
ompiler or ah, 080h 
nites b120: 
text editors pop cx 
MOV al, cl 
sates 4mp b40 
communications support 
oem olga 1aCcle : 
. my ; wait for selected status, bh is status, dx is port address 
faye list es Users’ Group b130: 
et rane tes 9 : mov bl, (si) .timeout ; delay counter 
| Library b140: 
co-routines sub cx, Cx 
compiler compilers b150: ; 
window packages ; in al, dx 
A Directory and al, bh 
spite ot kee eas a Bisa ; status match 
Peed C Source Code toot 150 . 
tutorials dec bl 
oa # : jnz b140 
rx ry. or bh, bh ; timeout, set non-zero 
link editors Sas b160: 
languages ret 
cross compilers 
pre-processors - > 
ure ees ashe ; reat Ge a character, put it in al 
disassemblers os PO Bo b200: 
cmp {si).bufent, 0 
i seta jne b230 ; chars in buffer, return one 
text editor 
Nips ; wait for a character to appear in the buffer, or return timeout 
mov al, {si} .timeout 
CIRCLE 181 ON READER SERVICE CARD add al, al + shorter timeout loop, so loop more 
b210: 
sub CX, CX 
PROMPT DELIVERY!!! b220: 
G SAME DAY SHIPPING (USUALLY) cmp {si).bufcnt, 0 
QUANTITY ONE PRICES SHOWN for APRIL 19, 1987 jne b230 
loop b220 
OUTSIDE OKLAHOMA: NO SALES TAX dec al 
DYNAMIC RAM a = 
© mov ax, 08000h ; timeout return value 
ag (Mbit = 1000Kx1 100ns $28.50 4mp b40 
ae 51258 = *256Kx1 100ns 6.95 
ea 4464 64Kx4 150 ns 3.50 b230: eo tare a 3 
E i 41256 256Kx1 100ns 4.35 S oa rece vee) tr ata and room now exists, enable receiver 
ae 41256 256Kx1 120ns 3.50 2 je b250 ; receive is already enabled 
ewes 41256 = 256Kx1 150 ns 3.15 cmp {si].bufcnt, XONSZ 
es rm 4164 64Kx1 150 ns 1.30 39 b250 + buffer fuller that turn on point 
oe EPROM fe seT TOU es: XNXF 
a) oo z 
Pies 27512 64kx8 200ns $10.50 oS mov {[si).rxoff, 0 ; indicate receiver enabled 
mee 270256 = 32kx8 250 ns 9.15 Bare mov al, 'Q' = '@* 
we 27256 32Kx8 250 ns 4.85 Baa ae out G4, ai : send *Q 
sl , 
asm 27128 16Kx8 250 ns 3.75 BS ; te 
e K 27C64 8Kx8 150 ns 4.85 =5 Po 8 eho ‘e just assert DTR & RTS rather than see if needed 
warm 2764 8Kx8 250 ns 3.50 in al, dx 
— STATIC RAM “i or al, DTR or RTS 
mim 43256L-12 32kx8 120ns 52 out dx, al *; assert DTR and RTS j 
6264LP-15 8kxs 150 ns EE) ees 


OPEN 67/2 DAYS, 7:30 am-10 pm: SHIP VIA FED-EX ON SAT. # get the char from the buffer and update buffer get pointer 


call b310 

SUNDAYS & HOLIDAYS: SHIPMENT OR DELIVERY, VIA U.S. EXPRESS MAIL 

|_ SUNDAYS & HOLIDAYS: SHIPMENT OR DELIVERY, VIA U.S. EXPRESS MAIL | and ah, O1Eh 
bx 


SAT DELIVERY MasterCard/VISA or UPS CASH COD 





; status reported with a receive 


: inc 
INCLUDED ON | Factory New, Prime Parts Poo the es 
Th: Std Air $6/4 Ibs} 24/000 S. Peoria Ave., 1 ee 
Fr: P-One_$13/2 ibs] BEGGS, OK. 74421 ane ar 
— No minimum order. Piease note that prices are subject to lea bx, [ si} -buf 
change. Shipping & insurance extra, & up to $1 for packing materials. Orders received by b260: 


9 PM CST can usually be delivered the next morning, via Federal Express Standard 
Air @ $6.00, or guaranteed next day Priority One @ $13.00! All parts guaranteed. 
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b300: 


b310: 


b320: 


b400: 


b430: 


b440: 


b500: 


bS510: 


mov {si].getptr, bx ; updated pointer 
dec {si) .bufcnt 

jmp b40 

; ah =3 

; get port status 

call b310 

inc dx 

in al, dx ; modem status 
jmp b40 


: get line status from input buffer and/or hardware into ah 


MOV dx, [si] .pbase 

add ax, 5 

in al, dx ; line status 
mov ah, al 

cmp {si].bufcnt, 0 

je b320 


; when chars in buffer, fix status as per status in buffer 
; return as above plus bx = getptr, al = character 


Mov cl, al 

mov bx, [si].getptr 

mov ax, [bx] ; status:data (ah:al) 

MOV ch, 01Eh ; these status bits from buffer 
and ah, ch 

not ch 

and cl, ch 

or ah, cl 

or ah, 1 ; char in buffer, show data ready 
ret 

;ah=4 

3; extended initialization 

; save the options in the pcb 

mov {(si].opts, al 

: if an extended baud rate, set up the uart 

add dx, 3 

test al, B19200 

jz b410 

mov bx, baudl9 - bauds 

call b430 

jmp short b420 

test al, B38400 

jz b420 

mov bx, baud38 - bauds 

call b430 

mov ax, OSASAh ; magic value to identify excom 
jmp b40 


; init the baud rate and character attributes 


MOV al, 080h 

out dx, al 

MOV ax, [bx+bauds] 

sub dx, 3 

out dx, al 3 set low order divisor on uart 
inc dx 

MOV al, ah 

out dx, al ; set high order divisor on uart 
inc dx 

inc dx 

mov al, [{si]).lchar 

out dx, al : set character attributes 
ret 

; ah=5 

; remove excom 

push ds 

push ds 

; restore status of interrupt controller and uarts 

cli 

mov ah, oldmsk 

and ah, C1MASK or C2MASK 

in al, O2lh 

and al, not (C1MASK or C2MASK) 

or al, ah 

out O2lh, al 

sti 

lea si, pcb ; coml pcb 

call bS10 ; restore coml uart status 
lea si, peb + size pcbs ; com2 pcb 

call b510 : restore coml uart status 
jmp short b530 


: subroutine to restore uart status 


mov dx, [si] .pbase 
or ax, ax 
jz bS520 ; no port 


(continued on next page ) 
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Listing One (Listing continued, text begins on page 42.) 





add ax, “3 
mov al, 080h 
out ax, al ; set access to baud divisors 
sub ax, <3 
mov al, [si] .olddll 
out ax, atl. ; baud divisor low 
inc dx 
mov al, [si] .olddlm 
“What's the out dx, al : baud divisor high 
add ax, 2 
; mov al, [si] .oldilcr 
longest time out dx, al ; line control register 
e uw inc ax 
in the world? mov al, [si] .oldmcr 
out dx, al # modem control register 
sub dx, 3 
mov al, [{si).oldier , 1 
‘ ~. Ee out ax, al ; interrupt enable register 
Waiting to finish 520: ; 
- yy ret 
a file transfer’ ae 
; restore old int OBh vector 
lds dx, old0B 
mov ah, 025h 
mov al, OBh 
a“ W int 021h 
What's the answer? 
; restore old int OCh vector 
pop ds 
lds dx, old0Cc 
mov ah, 025h 
mov al. 0Ch 
‘6 : 
RamNet. This sida oeah 
hi : d t ; restore old int 14h vector 
sopnisticated software pop ds 
lds dx, o1dl14 
handles all your data mov ah, 025h 


transfers, E-Mail, BBS, int O21h 


; free excom's memory, this memory 


and other communi- ) Sia as 


; f mov ax, cs 
cations functions — mov es, ax 
ah nov ah 04am 
All automatically in oe s 
0 
the background— Ag + 
while you continue APPEL IS TRILLIF RTS PROS TALAL ESLER ORI ET PETE ITED RITES IIS SES ERE IRIE ET OT EE 
: installati int, must be at file end 
to run any program, $ eS er Tniciaiine and sray cauident KI 3 
do any other task in ABT EP CENT IRL ees TER Eee LE UTS TET T TOT TT TEE ET eee 
the foreground— All excon: 
without interruption Cn ee parts of each pcb 
) e ; bi dat t 
rary 1 for $149! : sab di. di : offset to nAaE bade address 
mov bx, 07Ch : offset to coml timeout 
Mov cl, not C1MASK ; coml interrupt mask 
lea si, pcb ; coml pcb address 
“How do! find out more?" rea oc A 
inc di ; offset to com2 base address 


inc bx ; offset to com2 timeout 
mov cl, not C2MASK : com2 interrupt mask 


“Call the RamNet BBS ES eae ; Gone peo address 
at (212) 889-6438” jmp short cl0 


; subroutine to initialize parts of a pcb 





c00: 
mov dx, es: [di] ; port base from bios 
RamNet ole, = 
mov al, es: [bx] 
Software Concepts Design MOV [si}.timeout, al ; copy timout from bios 
; mov {[si) .mask, cl ; save interrupt mask 
594 Third Ave. New York, NY 10016 ret 
(212) 889-6431 10 
Maj dit Cards Ac wg 
Es Dora kage ah Sig * gave old status of interrupt controller and uarts 
in al, O2ih 
mov Oldmsk, al 
lea si, pcb ; coml pcb 
call c20 ; save old coml uart status 
lea si, pcb + size pebs ; com2 pcb 
call c20 * save old coml uart status 
jmp short c40 
; subroutine to save uart status 
c20: 
mov dx, [si] .pbase 
or ax, dx 
jz c30 ; no port 
add ath 
in al, dx 
and al, O7Fh 
mov [si] .oldler, al ; line control register 
mov al, 080h 
out dx, al # set access to baud divisors 
CIRCLE 393 ON READER SERVICE CARD sub dx, 3 
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in al, dx 
mov (si) .olddll, al ; baud divisor low 
inc dx 
in at; dx 
mov [si] .olddim, al ; baud divisor high 
add GX oe 
mov al, (si) .oldlcr 
out dx, al ; restore register access 
inc dx 
in al, dx 
mov [si] .oldmcr, al ; modem control register 
sub dx, 3 
in al, dx 
pa mov {si) .oldier, al ; interrupt enable register 
c30: 
ret 
c40: 
; release environment memory, not used 
mov bx, 02Ch 
mov ax, [bx] 
mov es, ax ; address of env 
mov ah, 049h 
int 021h ; free memory 
; save old int OBh vector, install new handler 
push ds 
mov ax, cs 
mov ds, ax 
mov ah, 035h 
mov al, OBh 
int O21h 
mov word ptr old0B, bx 
mov ax, es 
mov word ptr old0B + 2, ax 
lea dx, int0B 
mov ah, 025h 
mov al, OBh 
int O21h 
: save old int OCh vector, install new handler 
mov ah, 035h 
mov al, OCh 
int O21h 
mov word ptr old0C, bx 
mov ax, es 
mov word ptr oldOC + 2, ax 
lea dx, intOoc 
mov ah, 025h 
mov al, OCh 
int O21h 
: save old int 14h vector, install new handler 
mov ah, 035h 
mov al, 014h 
int O21h 
mov word ptr oldl4, bx 
mov ax, es 
mov word ptr oldl4 + 2, ax 
lea dx, intl4 
mov ah, 025h 
mov al, 014h 
int O21h 
pop ds 
; exit and keep everything above the entry point ‘excom' 
lea dx, excom 
mov cl, 4 
shr dx; Gi 
inc dx 
mov ah, O031h 
mov al, 0 
int O2ih ; terminate-and-stay-resident 
text ends 
end start 
i he End Listing One 
e e 
Listing Two 
#include <stdio.h> 
#include <dos.h> 
/* 
(C) 1987, Crystal Computer Consulting Inc. 
This software may be used freely, at your own risk, 
as long as this notice is not removed. 
a/ 
#défine EXINIT 4 /* ah value for extended init */ 
#define EXCOM OxSASA /* magic value to identify excom */ 
#define DTR 0x01 /* DTR input flow control */ 
#define RTS 0x02 /* RTS input flow control */ 
#define XNXFIN 0x04 /* XON/XOFF input flow control */ 
#define NOCTS 0x10 /* CTS not required for transmit */ 
#define NODSR 0x20 /* DSR not required for transmit */ 
#define B19200 0x40 /* set baud rate to 19200 */ 
#define B38400 0x80 /* set baud rate to 38400 */ 
#define COMINIT 0x100 /* port was selected */ 
typedef struct { 
char 
str; /* command string */ 
void 
(*fnct) (): /* command to execute */ 
int 
arg: /* argument to pass */ 


} CMDS; 


char 


/* exmode command table */ 


*insmsg = “excom installed", 
*remmsg = “excom not installed", 


*helpmsg; 
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(continued on next page) 


Dr. Dobb's 

Toolbook 

of 68000 
Programming 


T his complete collection of practical programming 
tips and techniques for the 68000 family includes 
the best articles on 68000 programming ever published 
in Dr. Dobb’s, along with much new material. You'll 
learn about the most important features of the 68000 
microprocessor from a full description of its history 
and design. And, useful applications and examples will 
show you why computers using the 68000 family are 
easy to design, produce and upgrade. Contents include: 


an introduction to the 68000 family 
© 68000 Instruction Set 


Development Tools 
¢ Bringing Up to the 68000: A First Step 
e A 68000 Cross-Assembler 
Useful 68000 Routines and Techniques 
e A Simple Multitasking Kernel for Real-Time 
Applications 
¢ The Worm Memory Test 
¢ A Mandelbrot Program for the Macintosh 


All programs are also available on disk! 


Specify MS-DOS, CP/M 8; Osborne, Macintosh, Amiga, 
Atari 520st. 


68000 Cross 
Assembler 


A executable version of the 68000 Cross- 
Assembler discussed in the book is also 
available, complete with source code and documenta- 
tion. Requires CP/M 2.2 with 64k or MS-DOS with 128k. 
Specify 8” SS/SD, Osborne, MS-DOS. 


YES! Please send me the 68000 
Toolbook for $29.95 


Send me the 68000 Toolbook & disk for 











$49.95 
Send me the 68000 Cross Assembler for 
$25.00 
Subtotal 2 
CA residents add sales tax —___ % 
Add $2.25 per item for shipping _____ 
TAR es 
Specify disk format. See above. 
Name 
Address 
City 
Ste 2a he 


1) Check enclosed. Make payable to M&T Publishing. 
Please Charge my CL) VISA L) M/C L) AMEX 











Card No. 
Exp. Date 
Signature 
3128F 
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SQL Compatible Query System adaptable to any 
operating environment. 


CQL Query System. A subset of the Structured 
English Query Language (SEQUEL, or SQL) 
developed by IBM. Linked files, stored views, 
and nested queries result in a complete query 
capability. File system interaction isolated in an 
interface module. Extensive documentation 
guides user development of interfaces to other 
record oriented file handlers. 


Portable Application Support System 


Portable Windowing System. Hardware 
independent windowing system with borders, 
attributes, horizontal and vertical scrolling. 
User can construct interface file for any 
hardware. Interfaces provided for PC/XT/AT 
(screen memory interface and BIOS only 
interface), MS-DOS generic (using ANSI.SYS), 
Xenix (both with and without using the curses 
interface), and C-library (no attributes). 


Screen |/0, Report, and Form Generation 
Systems. Field level interface between 
application programs, the Query System, and 
the file system. Complete input/output 
formatting and control, automatic scrolling on 
screens and automatic pagination on forms, 
process intervention points. Seven field types: 
8-bit unsigned binary, 16 bit signed binary, 16 
bit unsigned binary, 32 bit signed binary, 
monetary (based on 32 bit binary), string, and 
date. 


Including Source Code 
$395.00 


File System interfaces include 
C-tree and BTRIEVE. 


HARDWARE AND FILE SYSTEM 
INDEPENDENT 


“KURTZBERG 
GompuTER Systems 


41-19 BELL BLVD. 
BAYSIDE, N.Y. 11361 


VISA/Master Charge accepted 


(718) 229-4540 


*C-tree is a trademark of FairCom 


IBM, SEQUEL, PC, XT, AT are trademarks of IBM Corp. 
MS-DOS and Xenix are trademarks of Microsoft Corp. 


CQL and the CQL Logo are trademarks of Kurtzberg Computer 
Systems. 
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_COMPORT DRIVER 


Listing Two (Listing continued, text begins on page 42.) 


int 


void 


CMDS 


initl = 0, 
init2 = 0, 
portnum = -1; 


/* extended init for coml */ 
/* extended init for com2 */ 
/* port to initialize */ 
exit(), install(), remove(), exinit(), setport (); 


cmds[{) = { 


“install”, install, 0, 
“remove”, remove, 0, 
“coml", setport, 0, 
“con2", setport, . i, 
“dtr*. exinit, DTR, 
“rts, exinit, Rts; 


“xnxfin", exinit, XNXFIN, 
“nocts",  exinit, NOCTS, 
“nodsr", exinit, NODSR, 
"19200", exinit, B19200, 
"38400",  exinit, B38400, 
NULL 

}e 


main(arge, argv) 
int. 


arge; 


register char 


{ 


} 


** argv; 


register CMDS 
*cmdp; 


/* is excom installed */ 

if (intl4(EXINIT, 0, 0) == EXCOM && intl4(EXINIT, 0, 1) — EXCOM) 
helpmsg = insmsg; 

else 
helpmsg = remmsg; 


if (argc == 1) 
help(helpmsg) ; 


while (*++argv != NULL) { 
/* look up the argument in the command table */ 
for (cmdp = cmds; cmdp->str != NULL; ++cmdp) 
if (strcemp(*argv, cmdp->str) == 0) 
break; 


if (cmdp->str == NULL) 
help("bad command") ; 


else { 
/* excom must be installed to set options */ 
if (helpmsg == remmsg && cmdp->fnct != install) 
help(helpmsg) ; 


/* execute the command */ 
(*cmdp->fnct) (cmdp->arg); 
} 
} 


if ((initl & (B19200 | B38400)) = (B19200 | B38400) 
|| (inmit2 & (B19200 | B38400)) == (B19200 | B38400)) 
help("“ambiguous baud rate setting"); 


/* actually send the init bits to excom */ 
if ((initl & COMINIT) !-= 0) 
int14(EXINIT, initi, 0); 


if ((init2 & COMINIT) != 0) 
int14(EXINIT, init2, 1); 


exit(0); 


/* install excom */ 


void 


install() 
{ 


system ("excom") ; 
helpmsg = inamsg; 


/* remove excom */ 


void 


remove () 
{ 


} 


int14(5, 0, 0); 
helpmsg = remmsg; 


/* collect up the init bits for each port */ 


void 


exinit (thebit) 
int 


{ 


thebit; 


if (portnum == -1) 
help("no port selected") ; 


else if (portnum == 0) 
initl |= thebit; 


else 
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setport (newport) 
int 


newport; 
{ 
portnum = newport; 


if (portnum = 0) 
initl |= COMINIT; 


else 
init2 |= COMINIT; 
} 


/* perform int 14h with ah, al & dx as passed, return ax value */ 
intl4(cmd, val, port) 


int 
cmd, 
val, 
port; 
{ 
union REGS 
ix, /* registers send to bios */ 
or; /* registers returned from bios */ 


ir.h.ah = cmd; 
ir.h.al = val; 
ir.x.dx = port; 


int86(0x14, é&ir, &o0r); 


return or.x.ax; 
} 


/* provide a bit of assistance */ 
help(msg) 
char 
*msg; 
{ 
printf ("\nts\n\n", msg); 


fputs (“install\t\tinstall. excom\n", stdout); 
fputs("remove\t\tremove excom\n", stdout); 
fputs("coml\t\tsubsequent commands for coml\n", stdout); 
fputs ("com2\t\tsubsequent commands for com2\n", stdout); 
fputs("dtr\t\tuse DTR for input flow control\n", stdout); 
fputs("rts\t\tuse RTS for input flow control\n", stdout); 
fputs("xnxfin\t\tuse XON/XOFF (*S *Q) input flow control\n", stdout); 
fputs("nocts\t\tdon't require CTS to transmit\n", stdout); 
fputs(“nodsr\t\tdon't require DSR to transmit\n", stdout); 
fputs("19200\t\tset baud rate\n", stdout); 
fputs("38400\t\tset baud rate\n", stdout); 


ARE YOU STUCK? 


Stuck with PL/I applications running only on main- And next time you buy a computer, you won't be 
frames or minis? stuck — LPI languages will be on it. 
Lan i i j LPI-PL/I is a full implementation of ANSI PL/I X3.74-1981 General Purpose 
guage Processors, Inc. an innovator my soup ller Subset. It is compatible with DG and Prime implementations of PL/I and has 
technology, has your solution: a PL/I compiler that extensions for compatibility with mainframe and DEC implementations. Some 


rasries VOUT a lications from agin mainframes and of these extensions are: SELECT, BYTE, LEAVE, %REPLACE. 
y pp ging Available on MC680X0-based computers, such as Altos, Apollo, 


from proprietary architecture minis. Arete, AT&T, CT.NCR, Sun and Unisys. 

LPI-PL/I allows you to retain your present PL/I - onAT&T SS 3B5 and 3B15 Series computers. 
investment by letting you port the applications to just W: on Intel 80386-based computers. 

Call the LPI Retail Group now to order, or send the coupon. Prices 

about any UNIX Or XENIX-based computer. start at $995 for 80386 eaehine ‘ 

LPP Ais airaecompilerthat produces fast and: <<. —-—-————— os 
compact machine code. You can select from several 
levels of optimization (local, global or machine depen- 
dent) to produce efficient applications. And our LPI- 


DEBUG lets you test and debug programs in PL/I, not 


exit(1); 


End Listings 




























| need more information on your other language(s): 
















machine language. . : : Name Title (or attach your business card) 
LPI-PL/I is just one of an entire family of compilers. 





of an application in the LPI language best suited for the 
job, and then execute cross-language calls between the YO g Lanistbye Piomeseal ane 
subprograms. You choose the language—we will supply ‘ii? 400-1 Totten Pond Road 
the compiler—with the support that made us stand above ea Tecphone: 617-890-1155 
the crowd. SSrHH!! Telefax: 617-890-5633 


Copyright 1987 by Language Processors, Inc. LPI and LPI Logo are trademarks of Language Processors, Inc. & The Language Source Telex: 951-671 = 
The companies mentioned above own numerous registered trademarks. 


LPI: PL/I, COBOL, RPG II, BASIC, FORTRAN, PASCAL, C, DEBUG 
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| 
| 
| 
| 
| 
The LPI family allows you to develop every subprogram —| Adaress aeons 
| 
| 
| 
| 
| 
| 





8031 
FORTH DEVELOPMENT ENVIRONMENT 


Take advantage of Bryte’s tools to make your job easier: 


@ Bryte’s development environment uses BRYTE-FORTH 
on the actual production hardware during product 
development. No emulators, no changes, no surprises. 


Optional PC-based cross-development tools use DOS 
files as microcontroller mass storage. These files 
can be used to generate compact EPROM images, de- 
tailed listings, and cross-references. 


Why not start developing the Bryte way today? 


BRYTE-FORTH 8831 EPROM 

(includes 13% page User’s Manual) 
Utility disk(s) 
Cross-compiler/Cross-assembler 
8031 unlimitted quan. license 


100.00 
65 .00* 
235.00* 
1000.00* 


* Includes complete source code 


loryte computers, inc. 


P.03°Box: 46 
Augusta, ME 04330-0046 


207/547-3218 
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the dBx™ translator 


dBx produces quality C direct 
from GBASE II or III programs. 
Move dBASE programs to UNIX or other machines. 


Improve program speed and reliability 


Support multi-user/network applications. 


With power guidebook of conversion hints. 


Includes full screen handler and uses your 
current C database manager 


May be used to move existing programs or help 
GBASE programmers learn C easily. 


For MSDOS, PCDOS, UNIX, XENIX. Macintosh, AMIGA. 
(Uses ANSI.SYS driver on MSDOS, CURSES under UNIX) 


Priced from $350, also available from distributors. 


dBx is a trademark of Desktop All 


1720 Post Road E., Westport, CT 06880 = MCIMAIL - DESKTOPAI 
Phone « 203-255 «3400 Telex * 6502972226MCI 
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TURBO PASCAL OVERLAYS 


Listing One (Text begins on page 50. ) 


Listing 1: MemOvrly.Inc 


(RRR AK KR KKKK KKK KEK EKER KE KREK EK KK KK KKK KK KEKE KKK EKER EKER KKKKKKKKEK 
x 


Turbo Pascal Memory Overlay Routines 
Copyright (C) 1986 by Steve McMahon 


All Rights Reserved. 


* 
* rt 
* * 
x x 
* x 
* * 
* * 
* * 


KREKKKKKEKKEKRKEKKKKKEKKEKEKEKEKEKKEKKEKEEKRE KEK KE KEKKEKKKKKEKKEREKKEEE 


) 
(* 
Limitations: 


These routines have been tested only for Turbo 3.01A (both 
PC-DOS and generic MS-DOS). They may not work under 3.0 
(the celebrated FileSize bug may cause trouble) and will 
certainly not work under 2.0Xx. 


Memory overlay files must be < 64k in size! 


NORMAL overlays nested inside memory overlays should work, but 
trying to nest memory overlays -inside memory overlays would 
be disasterous! 


OvrPath will not work in conjunction with memory overlays! 
(Writing a replacement routine would be simple if the code 
below makes sense to you.) 


I/O testing in InitOverlay is just Turbo's Native. Anyone 
really needing memory overlays will probably wish to install 
their own I/O error checking. 


=] 


CONST 
RequiredHeap = $1000; {Paragraphs of Heap Required by Program 
for other purposes than memory overlays. 
Change this to suit your needs for 
dynamic storage.} 


TYPE 
{Type used in both InitOverlay and DisposeOverlayStorage} 
OverlayProcedure = RECORD 
CASE Boolean OF 


True : 
( OldCall : ARRAY[1..3] OF Byte; 
OldOffset : Integer; 
FileName : ARRAY[1..13] OF Char; 
): 
False : 
( NewCallInstruction : ARRAY[1..3]OF Byte; 
NewCallAddress : Integer; 
CurrentOffset : Integer; 
OverlayCodeLoc : “Byte; 
NewRoutineLoc : Integer; 
OverlaySize : Integer; 
) 
END; 
PROCEDURE NewOverlayHandler; 
BEGIN 
INLINE ( 


{When this routine receives control, AX contains the 
number of bytes in the desired overlay & BX contains the 
offset (in pages) of the desired overlay within the 
overlay file (now on the heap).} 


{First, check to see if the desired overlay is already in 
place by comparing DX with the offset recorded in memory 
immediately after the call instruction. If they match, 
no load is necessary} 


$5E/ {POP sI } 
$2E/$3B/$14/ {CMP DX,CS:[SI] } 
$74/$1B/ {JZ RUN_OVERLAY} 


{Save vital registers} 


$56/ {PUSH SI } 

$1E/ {PUSH DS } 

{Load ES:DI with destination address (the point the 
code will run at). Displace to account for header.} 
SOE/ {PUSH CS 

$07/ {POP ES } 

$8B/SFE/ {MOV Divot } 
$83/$C7/$0D/ {ADD DI, ODH } 


{Fetch heap address of source overlay code from memory 
position two bytes after first byte after call to this 
routine. Store it in DS:SI} 

$46/ { INC SI } 

$46/ {INC SI } 
$2E/$C5/$34/ {LDS SI,CS:(SI] } 


{Multiply overlay page by 100H to get number of bytes code 
is displaced from start of overlay code area (on heap). 
Add to source offset in SI.} 


$8A/$F2/ {MOV DH, DL } 
$32/$D2/ {XOR DL, DL } 
$03/$F2/ {ADD SI, DX } 


{Put number of bytes to move in Cx} 
$8B/$c8/ {MOV CX, AX } 


{Copy CX bytes from DS:SI to ES:DI} 


Dr. Dobb’s Journal, June 1987 


SFC/ {CLD } 
$SF3/$A4/ {REPZ MOVSB } 
{Recover mauled registers} 
$1F/ { POP DS } 
SSE/ { POP SI } 
{RUN_OVERLAY: } 
$83/$C6/S$0D/ { ADD SI, 0DH } 
SFF/SE6 { JMP SI } 
)3 

END; 


PROCEDURE InitOverlay (OverlayCallOffset : Integer); 


VAR 
OverlayCallPtr : “OverlayProcedure; 
TestSize, i : Integer; 
s : STRING[(13]; 
i : FILE; 
BEGIN 


OverlayCallPtr := Ptr(CSeg, OverlayCallOffset) ; 
WITH OverlayCallPtr® DO 


BEGIN 
{Obtain overlay file name} 
i := 1; 
g ya tts 
WHILE FileName[i] <> #0 DO 
BEGIN 


s := s + FileName[i]; 
is:=i+ls; 
END; 
{Open overlay file as untyped file} 
Assign(f, s); 
Reset (f); 
{determine file size in $80-byte sectors} 
TestSize := FileSize(f); 
{Check to see if there's enough space on the heap. } 
{If there isn't, leave the overlay on disk} 
IF (MemAvail > (RequiredHeap + TestSize * 8)) AND 
(MaxAvail >= TestSize * 8) THEN {there's enough space} 
BEGIN {install overlay} 
OverlaySize := TestSize; 
GetMem(OverlayCodeLoc, OverlaySize * $80); 
BlockRead(f, OverlayCodeLoc*, OverlaySize, i); 
NewCalliInstruction[1] := $2E; {CS:} 
NewCallInstruction[2] := SFF; 
NewCalliInstruction[(3] := $16; {indirect near call} 
NewCallAddress := Ofs(NewRoutineLoc) ; 
NewRoutineLoc := Ofs(NewOverlayHandler) + 7; 
{extra 7 bytes skips turbo's procedure overhead} 
CurrentOffset := $FFFF; {force load on first call} 
END; 
Close(f); 
END; 
END; 


PROCEDURE DisposeOverlayStorage(OverlayCallOffset : Integer); 

VAR 

OverlayCallPtr : “OverlayProcedure; 
BEGIN 

OverlayCallPtr := Ptr(CSeg, OverlayCallOffset); 

WITH OverlayCallPtr* DO 

IF NewCallInstruction[3] = $16 THEN {Overlay is in memory} 
FreeMem(OverlayCodeLoc, OverlaySize * $80); 

END; 


End Listings 


Dr. Dobb’s Journal, June 1987 


C-PROGRANMIMERS 





File System Utility Libraries 


All products are written entirely in K&R C. Source 
code inchided, No Royalties, Powerful & Portable. 


75.00 


® High speed random and sequential access. 
® Multiple keys per data file with up to 16 million records per file. 


*® Duplicate keys, variable length data records. 
Roa 4.0.00 
® Combines ease of use of database manager with flexibility of program- 
® Supports multi key files and dynamic index definition. 
® Very easy to use. 
59.00 

® Patterned after the UNIX utility. 
® Works for programs written in every language. 
Full Documentation and Example Programs Included. 
ALL THREE PRODUCTS FOR — 149. ce 

Oakville, Ontario, Canada 
L6L 255 


® Greatly speeds application development. 
ming language. 
Make 
¢ Full macros, File name expansion and built in rules. 
1343 Stanbury Drive 
(416) 825-0903 





For more information call or write: 


Credit cards accepted. Dealer inquiries invited. 
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A PROGRAMMER’S 
TOOL BOX 


A DP MANAGER’S 
BEST FRIEND 


PURE GENIUS IS NOT ENOUGH: 
(YOU STILL NEED THE RIGHT TOOLS) 


@ DESIGN MENUS 
@ CREATE PROTOTYPES 
@ CREATE TUTORIALS 


@ CAPTURE SCREENS 
@ CREATE DEMOS 
@ RUN TIME MODULE 


ENHANCE HIGH LEVEL LANGUAGES WITH FULL 
ACCESS TO ALL CAPABILITIES IN YOUR OWN CODE 


"source code was reduced by one third...” 

"15 minutes to design a sophisticated screen...” 
Scott McCaffrey, Musco of PA 

"In a word, fantastic...” 

"...1 just returned my copy of Dan Bricklin’s 

Demo Program.” Thomas Emr, Dir. of Marketing - ADP Inc. 


Z 
GENESIS 


5403 Jonestown Rd., Harrisburg, PA 17112 
FP ERIN SYSTEMS (717) 652-1200 
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Meta WINDOW 


Power Graphics 
for your PC! 


PC TECH JOURNAL 


“Product of the Month" 
"... a technological tour de 
force for fast PC araphics." 


NO ROYALTIES! 


MetaWiNDOW is the advanced high 
performance graphics toolkit which 
breaks the barrier between low-level 
gtaphic primitive libraries and 
pre-packaged window managers. 


PC MAGAZINE 


"... the only way | know to do 
advanced graphics from Turbo 
Pascal." 

"... testing has found it fast and 
reliable." 


Jeff Duntemann 


"MetaW/INDOW is written in 
hand optimized assembly code 
and is very fast. It is virtually 
bug free, and the manufacturer 
has been very responsive to 
questions. If you intend to do 
any graphics work at all, you 
must have this product." 


PC TECH JOURNAL 


".. Solves many problems that 
bedevil graphics sotware develop- 
ers: non-standard hardware, high 
library cost, poor documentation, 
license fees, and confining 
license agreements. For proprie- 
tary graphics, this product may 
be the only choice." 

",.. OUt-Borlands Borland's own 
Turbo Graphics Toolbox." 

"... one high-powered piece of 
artillery." 


MetaWiINDOW includes over 200+ 
graphic drawing and windowing functions 
_and comes complete with langauge 
_ bindings for 15 popular C, Pascal and 
Fortran compilers, plus dynamic runtime 
support for over 40 graphics adaptors 
and nee devices. 


3,32 O page manuals - $185 
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UNIX BBS _ 





Listing One (Text begins on page 54.) 


Ist 


TPATH=/u/bbs/rbin 


# check the command argument - $1 


2 if [ "$1" = Ms] 
3 then 
# argument is for MS-DOS files 
4 echo 'who am i | cut -fl -d" " ' ‘date | cut -cl-16 ' "MS.list" >>/u/bbs/log.file 
5 echo 
6 more $TPATH/MS.list 
2 elt -{ 2Si" = Mac ) 
8 then 
# argument is for Macintosh files 
9 echo ‘who am i | cut -f1 -d" " ' ‘date | cut -cl-16 ' "Mac.list" >>/u/bbs/log. file 
10 echo 
Lz more $TPATH/Mac.list 
l2 elif. {.*§i1" = Unix. ] 
13. then 
# argument is for Unix files 
14 echo ‘who am i | cut -f1 -d" " ' ‘date | cut -cl-cl6 ' “Unix.list" >>/u/bbs/log. 
file 
LS echo 
16 more STPATH/Unix. list 
17 else 
# no argument was entered 
18 echo 
19 echo "List which directory? (MS, Mac, or Unix)" ee 
20 fi End Listing One 
e = 
Listing Two 
dwnid 
# identify which file directory (contained in the first argument - $1) 
+ af f PSL? me gS. ] 
2 then 
# an MS-DOS file 
3 filedir=/u/bbs/MS-files 
5 elif [ "$1" = Mac ] 
5 then 
# a Macintosh file 
6 filedir=/u/bbs/Mac-files 
Fe.) LEE *[--O SIS we Unix} 
8 then 
# a Unix file 
9 filedir=/u/bbs/Unix-files 
10 else 
# no valid file directory was entered 
Li echo "Follow the dwnld command with a file directory - MS, Mac, or Unix" 
12° (25 
# verify that a file name has been entered (contained in the second argument - $2) 
Ra ak 0 eee SMF 
14 then 
# verify that the file name exists within the selected directory 
ES 42: <-f “Sfiledir/$2" | 
16 then 
17 echo 'who am i | cut -f1 -d" " ' ‘date | cut -cl-16 ' "dwnld" $1 $2 
>>/u/bbs/log.file 
# select a file transfer protocol 
18 echo “Transfer potocol (X = Xmodem; A = ASCII): \c" 
19 read method 
20 if [ "Smethod" = X -o "Smethod" = x ] 
21 then 
# send a binary file using the XModem protocol 
22 xmodem -sb $filedir/$2 
23 else 
# send an ASCII file 
24 echo "Prepare to transfer file. Press return to start." 
25 read dummy 
26 cat $filedir/$2 
=f sleep 5 


echo "Download complete. Press return to continue." 
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29 read dummy 
30 fi 
31 else 
# a valid file name wasn't entered 
32 echo "Sorry, that file name does not exist. Be sure to type the" 
33 echo “file name exactly as it appears in the directory listing." 
34 echo "Upper and lower case letters are different." 
so fi 
36 else 
# no file name was entered 
a7 echo "Please enter a file name after the directory on the command line." 
38 echo "Use the list command to see available file names." 
a End Listing Two 
® e 
Listing Three 
upld 
# verify that a file name has been entered (in argument 1 - $1) 
1 a £ ~a "Fi" ] 
2 then 
# verify that a file with the same name isn't already stored in the Uploads directory 
3 if [ -f /u/bbs/Uploads/$1 ] 
+ then 
# the file name already exists 
5 echo "Please give your file another name. $1 already exists." 
6 else 
# collect the file transfer protocol 
7 echo 'who am i | cut -fl -d" " ' ‘date | cut -c1-16' "upld" $1 >>/u/bbs/log. 
file 
8 echo "Transfer protocol (X = Xmodem; A = ASCII): \c" 
9 read method 
10 if [ “Smethod" = xX -o "Smethod" = x ]} 
od then 
# receive a binary file using the XModem protocol 
+2 xmodem -rb /u/bbs/Uploads/$1 
53 else 
# receive an ASCII file 
14 echo 
15 echo "Begin sending ASCII file." 
16 echo "Type a CNTRL-d when finished transmitting." 
5 echo 
18 cat > /u/bbs/Uploads/temp 
19 cp /u/bbs/Uploads/temp /u/bbs/Uploads/$1 
20 Fi 
# collect the file description 
ZL echo "Please enter a one line description of your file." 
22 read desc 
23 echo $1 $desc >>/u/bbs/Uploads/Doc. file 
24 Ti 
25 else 
# no file name was entered 
26 echo "Please enter the name of the file you wish to upload on" 
Z2 echo "the command line." 
28 fi 


End Listing Three 


Listing Four 


readmsg 

1 FIRST=/u/bbs/. first 

2  LAST=/u/bbs/.last 

3. MSG=/u/bbs/msg 

4 echo 'who ami | cut -fl -d" " ' ' date | cut -cl-16' “readmsg" >>/u/bbs/log.file 
5 echo 


rw o-~) OV 


12 


13 
14 
19 


# display the number of the first and last messages available 


echo "Messages available:" 
cat $FIRST 

echo "through" 

cat $LAST 

echo 


# accept the number of the first message to be displayed 


echo "Message number to read (‘'qg' to quit): \c" 
read message 


# loop until the user wants to quit 
while [ "$message" != q ] 
do 

echo 


# verify that the message number entered actually exists 
(continued on next page ) 
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IBM PC/XT/AT & Compatibles 


Versions Available For: 


Microsoft, Supersoft, RyanMcFarland, 
IBM Professional, Lahey, & IBM 


Fortran. 
Forlib-Plus 
$69.95 


Supports graphics, interrupt driven com- 
munication, program chaining, and file 
handling/ disk support. A Fortran coded 
subroutine is included which will plot data 
on the screen either in linear/linear, log/ 
linear, linear/log, or log/log on the appro- 
priate grid. 


Strings & Things 
$69.95 


Supports string maipulations, command 
line usage, DOS call capabilities, SHELL 
generation and data transmission, BATCH 
file control, music generation, PEEKS and 
POKES, PORT access, and general register 
manipulations. 


For- Winds 
$89.95 


Gives the Fortran programmer the capa- 
bility of generating up to 255 windows on 
the screen. Each window can be individually 
scrolled, moved, sized, generated, and 
removed. Both color and monochrome type 
displays are supported. Full source code is 
supplied for customization. 


ACS Time Series 
$495.00 


This is a COMPLETE time series analysis 
package which contains VERY HIGH 
SPEED FFTs, Filter generations, convo- 
lutions, transfer function calculations, auto 
and cross spectra calculations, Cepstrum, 
curve fitting algorithims, coherence calcu- 
lations, and many other associated routines. 
The price includes FULL source code. 


Fortran Scientific 
Subroutine Package 
$295.00 


There are approximately 100 Fortran sub- 
routines included which fall under the 
following 12 categories: 

1) Matrix storage and Operations 2) 
Correlation and Regression, 3) Design 
Analysis (ANOVA), 4) Descriminant Anal- 
ysis, 5) Factor Analysis, 6) Eigen Analysis, 7) 
Time Series, 8) Nonparametric Statistics, 9) 
Distribution Functions, 10) Linear Analysis, 
11) Polynomial Solutions, 12) Data 
Screening. Full source code is included. 


MAPA 


COMPUTER 
@M™M™M™M™MseteERVICE 


ALPHA COMPUTER SERVICE 

5300 ORANGE AVENUE SUITE 108 
CYPRESS, CALIFORNIA 90630 
(714) 828- 0286 


California Residents 


Include 6% Sales Tax There are NO license fees 
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MULTITASKING 


Introducing 


MultiDos Pius 
The new multitasking software 
for the IBM-PC. 


Ideal for developing applications 
in process control, data acquisi- 
tion, communications, and other 
areas. Check these features which 
make MultiDes Pius an unbeat- 
able value. 


e Run up to 32 programs concur- 
rently. 

e Your software continues to run 
under DOS. No need to learn a 
new operating system. 

e Use the compilers you already 
have. Supports software written in 
any language. 

e Operator commands to load/run 
programs, change priority, check 
program status, abort/suspend/ 
resume programs. 

e Programmatic interface via INT 15H 
for the following. 


* Intertask message communica- 

tion. Send/receive/check mes- 

sage present on 64 message 

queues. 

Task control by means of 

semaphores. Get/release/check 

semaphores. 

Change priority-128 priority 

levels. 

Suspend task for specified 

interval. 

Spawn and terminate external 

and internal tasks. 

Disable/enable multitasking. 

and more! 

e Independent foreground / 
background displays. 

e Access to DOS while applications 

are running. 








































Hardware/Software Requirements 
IBM PC/XT/AT or true clone. Mono- 
chrome/CGA display adaptors or 
equivalent cards only. Enough memory 
to hold MultiDos Pius (48 KB) and 
all your application programs. Also 
may need 4 or 16 KB memory for 


‘hidden screens” for each active task. 
MS-DOS (or PC-DOS) 2.0 or later 


operating system. 
ONLY 49.95 


Outside USA add $5.00 shipping and handling. 
Visa and Mastercard orders call toll- 
free: 1-800-367-6707. In Mass call 
617-651-0091, or send check or money 
order to: 


NANOSOFT 


13 Westfield Rd, Natick, MA 01760 


MA orders add 5% sales tax. Write for 
source code and quantity price. 
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Listing Four (Listing continued, text begins on page 54.) 


16 
17 


if [ -f $MSG/Smessage ] 
then 


# display the message 


cat $MSG/$message 
elif [ “$message” != q } 
then 


# the entered message number doesn't exist 


echo “Sorry. That message doesn't exist." 


echo 
# accept the next message number to read 
echo “Message number to read: ('q' to quit): \c" 
read message 


done 
echo 


End Listing Four 


Listing Five 


send 


Own WNFH 


\© © 


echo 'who am i | cut -f1 -d" " ' ‘date | cut -cl-16' "send" >>/u/bbs/log. file 
SCAN=/u/bbs/msg/.index 

LAST=/u/bbs/.last 

MSG=/u/bbs/msg 

L='cat $LAST' 

D='date' 


# increment the number of the last message entered 
L='expr $L + 1! 
# save the new "last message" value 


echo $L >S$LAST 
echo 


# collect message header information 


echo "To: \c" 

read to 

echo "Subject: \c" 

read subject 

echo "From: \c" 

read who 

trap 'rm -f $MSG/S$L;continue' 2 3 

ech 

echo "Start typing your message. You have 20 lines available." 
echo "Type a period on a new line to end the message." 
echo 


# store the message header in the message file 


echo "# $L From: $who S$D" >SMSG/SL 
echo " To: Sto" >>SMSG/SL 

echo " Subject: $subject" >>S$MSG/$L 
echo >>SMSG/S$L 


# collect the body of the message 


NL=0 
read newline 
while [ "Snewline" != "." -a "SNL" -1t 20 ] 
do 
echo S$newline >>SMSG/SL 
NL='expr $NL + 1' 
read newline 
done 
echo 


# update the message index for use by the scan command 


echo "Message being posted, please wait... \c" 
echo "# $L From: $who $D" >>$MSG/temp 

echo " To: $to" >>SMSG/temp 

echo " Subject: $subject" >>$MSG/temp 

echo " " >>SMSG/temp 

cat $SCAN >>$MSG/temp 

mv S$MSG/temp SSCAN 


echo End Listing Five 


Listing Six 


pmail 


NFR 


NOW W 


USERS=/u/bbs/rbin/user. file 
echo 'who am i | cut -fl -d" " ' 'date | cut -cl-16! “pmail" >>/u/bbs/log.file 


# display pmail instructions 


echo 
echo" 
echo 
echo 
echo 


REKKKKKKKKKKKK Private Mail REKKKKEKRKKKKKKEKN 


Commands: 


s - send mail to another user (continued on page 84) 
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MICROWAY ACCELERATES YOUR PC! 

















FastCACHE-286" 


Runs your PC Faster than an AT! 
Runs the 80286 at 9 or 12 MHz and the 
80287 at 8, 9 or 12 MHz Includes 8 
kbytes of 55ns CACHE 
























Compatible with Leading Edge Model D, 
Compaq, and Turbo motherboards. In- 
cludes 8088 Reboot Switch, DCache, Print 
Spooler and Diagnostics... From $399 



















8087 SOFTWARE 
IBM BASIC COMPILER.......... $465 
MICROSOFT QUICK BASIC ....... $79 
87 BASIC COMPILER PATCH..... $150 
S7BASIG/INLAINE. wy ics nii se. i $200 
IBM MACRO ASSEMBLER....... $155 
MS MACRO ASSEMBLER......... $99 
87MACRO/DEBUG............... $199 
MICROSOFT FORTRAN V4 ...... $299 
FIM: PORITRIANG cn ces cs scdais csedes $399 
LAHEY FORTRAN F77L......... $477 
NEAT EAT Te Genet ease Sas CALL 
STGC APPLY PLUS PC. ied ck: $450 
STSC STATGRAPHICS........... $675 
a oc oc ke cides ciwde caer $695 
87SFL Scientific Functions....... $250 












Turns your AT into a high speed, multi- 
user Xenix business system! 












8 port, intelligent serial controller with 3% 
response degradation. Includes 8 MHz 
80186 with builtin DMA........ $1299 


Mic 
rei 


P.O. Box 79 


Kingston, Mass. 
02364 USA 
(617) 746-7341 


LOTUS/INTEL EMS 
SPECIFICATION BOARDS 


MegaPage” The only EMS board which 
comes populated with two megabytes of 
cool-running, low power drain CMOS 
RAM installed. Includes RAM disk, print 
spooler, disk cache and EMS drivers. For 
the IBM PC, XT and compatibles...$549 


MegaPage with OK............... $149 
MegaPage with 2 megabytes of HMOS 
OA Siciic aoa Pata cao te i ee $419 


MegaPage AT/ECC”™ EMS card for the 
PC AT and compatibles includes Error 
Correction Circuitry. With ECC, 11 RAM 
chips cover 256K so the user never err 
counters RAM errors. With 1 megabyte 
CRE a as cla Se Sno es $699 
INTEL, JRAM, or Maynard ..... CALL 


INTEL INBOARD 386 OK...... $1325 


28 
a 
a 


Nias 












I) 287 Turbo runs the 80287 


software compatibility. 


PC Resin “Editor’s Choice” 


MICROWAY SOFTWARE 
FOR LOTUS 1-2-3" 


FASTBREAK™ employs the 8087 to ir 
crease the speed of Lotus 1-2-3” Version 
1A or 1A*. Users are reporting speed ups 
of between 3 and 36 to 1. When run with 
our NUMBER SMASHER accelerator 
card, recalculation speed ups of 10 to 30 
are being reported................. $79 


PowerDialer® Add-In for Lotus 1-2-3 
Release 2. Automated telephone dialing 
from within 1-2-3. Adds least cost routing, 
automatic carrier selection and auto- 
mated phone book worksheet Builds 
customized dialing applications. Can be 
used with DesqView ...........-.-- $79 
HOTLINK™ adds easy linking of spread 
sheets to Lotus 1-2-3 Version 1A. .. $99 


You Can 
Talk To Us! 
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| at10 or 12 MHzinthe IBM 
m@ PCAT, compatibles and the 
= newCompaq3s6 with 100% 






































NUMBER 
SMASHER/ECM" 


Triples the speed of CAE 
and all applications! 


From 


$599 































12 MHz 
8086/8087 
Accelerator 
Plus 
A Megabyte for DOS! 
For the IBM PC, XT and compatibles 


PC Magazine “Editor's Choice” 


8087 UPGRADES 


All MicroWay 8087s include a one year 
warranty, complete MicroWay Test 
Program and installation instructions. 








































For Wang, AT&T, DeskPro, NEC, Leading Edge 


















80287-3 5 MHz.............. $179 
For the IBM PC AT and 286 compatibles 
80287-6 6 MHz............. $229 
For 8 MHz AT and compatibles 

80287-8 8 MHz............. $259 






For the 8 MHz 80286 accelerator cards and 
Compag 386 


80287-1010 MHz.......... $395 


PC-PAL™ Programmer....... $395 
Call for great prices on V20, V30, 


64K, 128K and 256K RAM 


287 TURBO-PLUS" 
Speeds up your AT 
Adjustable 80286 Clock 6-12 MHz 

10 MHz 80287 Clock 
Plus Full Hardware Reset......... $149 
Optional 80286-10..... $175 


























Pr ae fete 


REESE 








287 TURBO-PLUS 
With BOQBZ AD DAZ. ices eee ncans on $549 
With 60287 12 MZ. 00. else ea cee eae $629 








MicroWay Europe 

32 High Street 
Kingston-Upon- Thames 
Surrey England KT1 1HL 
Telephone: 001-541-5466 









Quelo” 68000 Development 
7” ~ Tools 


First release 1983 - MOTOROLA compatible - produces ROMable 
code, S-records, extended TEK hex, UNIX COFF. Portable 
SOURCE CODE. Native and cross versions on: ATARI ST, AMIGA, 
Masscomp, Sun, Apollo, Charles River, VAX VMS and UNIX. 







68020 Cross Assembler Package 


Supports 68000, 68010, 68020, 68881 and 68851 
For CP/M-68K and MS/PC-DOS - $750 






68000/68010 Cross Assembler Package 
For CP/M-80, -86, -68K and MS/PC-DOS - $595 







68020 Disassembler 


Supports 68000, 68010, 68020, 68881, 68851 
For CP/M-68K and MS/PC-DOS - $495/295, Amiga and Atari ST - $119/79, 
CRDS UNOS - $995/595 







68000/68010 Software Simulator 
For MS/PC-DOS by Big Bang Software, Inc. - $285, VAX - $2000 






68000 "C" Cross Compiler 
For MS/PC-DOS by Lattice, Inc. - $500 










Call Patrick Adams today: Quelo, Inc. 
2464 33rd. West, Suite #173 
Seattle, WA USA 98199 
Site, Corporate, OEM licenses Phone 206/285-2528 
COD, Visa, MasterCard Telex 910-333-8171 










TM: Quelo, Quelo, Inc.; MS, Microsoft Corporation; CP/M, Digital Research 
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PC-DOS program 
lets your PC 

Read/Write/Format 

over 300formats 


ENOCH Pap 


'y Fred Cisin 


$79.95 + $5.00 S/H Sales Tax if CA. 


Upgrades available from previous versions 


Ask about FREE CP/M emulator! a 
To Order Contact: 


X<ENGQS0ST 


1454 Sixth Street, Berkeley, CA 94710 


me (415) 525-3113 SB 
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Dr. Dobb's journal 


subscription 
Problems? 


No Problem! 


Give us a call and we'll 
straighten it out. Today. 


Outside California 
CALL TOLL FREE: 800-324-3333 
Inside California 
CALL: 619-485-6535 or 6536 
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Listing Six (Listing continued, text begins on page 54.) 


8 
9 
10 
ct 


12 
13 


36 
ae 
38 
39 


46 


48 
49 
50 


61 
62 
63 


echo r - read mail sent to you 

echo 1 - list the users by user id and name 
echo x - exit the private mail system 

echo 


# accept the first pmail command 


echo "Command: \c" 
read choice 


# loop until the user wants to quit 


while [ "$choice" != x -o "$choice" != x ] 
do 
echo 
case $choice in 
[Ss] ) 


# send private mail 
# print instructions 


echo “WARNING: To successfully send mail observe these rules:" 

echo 

echo " 1. If you wish to erase a character, use the backspace key." 
echo "DO NOT, DO NOT use the delete key." 


echo " 2. Type a carriage return at the end of each line on the" 
echo "screen. Lines should be no more than 80 characters." 

echo " 3. Do not use the following characters in your message (they" 
echo “have special meaning to the system): @ and #" 

echo 


echo "Press RETURN to begin sending your message: \c" 
read dummy 
echo 


# collect user id of recipient 


echo "To whom (user id): \c" 
read to 


# verify that recipient entered is a valid user id 
TPERS='grep $to S$USERS | we -c! 
if [ “$TPERS" -eq 0 ] 
then 
# user id is invalid 
echo 


echo “Sorry, that user id doesn't exist." 
echo “List them with the 1 command." 


else 
# send mail 

echo 
echo "Start typing your message. Type a period on a new" 
echo “line to send the message." 
echo 
mail $to 

fi 


# collect next option 


echo 
echo "Command (x to exit): \c" 
read choice 
continue; ; 
(Rr) 


# read private mail 
# print instructions 


echo "After each message you will receive a ’2?’ prompt." 
echo “Type ’d’ to delete the message, <cr> to leave it in" 
echo "your mailbox, or ’q’ to stop reading mail." 

echo 


# real the mail 
mail 
echo 


# collect the next command 


echo "Command (x to exit): \c'" 
read choice 
continue; ; 

{L1)) 


# display a list of user names and associated user id's 


echo 


more SUSERS 
echo 


# collect the next command 


echo “Command (x to exit): \c" 
read choice 
continue; ; 

= 


# if an unrecognized command was entered, prompt for another one 


echo “Command (x to exit): \c" 
read choice 
continue; ; 


esac End Listing Six 
done 


echo (Listing Seven begins on page 86. ) 
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Magus Inc. 


| 


Hin" 
wi 


My, 
Ui 


Screen 
Designer 


Ny 
yl 
it 
lll 


Data& Windows, the window-oriented data- 
entry system from Magus, Inc., now supports 
more of your favorite compilers! If you use 
Microsoft C, Pascal, or FORTRAN, Manx 
Aztec C86, Mark Williams C Programming 
System, Lattice C, IBM C, MetaWare High C, 
MetaWare Professional Pascal, or Datalight 
Optimum C, you can use Data& Windows to 
quickly and easily create almost any user 
interface. 


With Data& Windows, you draw your text, 
fields, and colors on the video display. You 
see exactly what you will get while you 
create it. The screen designer gives you 
maximum functionality in an editor-like 
environment. Fields have options for 
specifying character and data type 
validations, user-definable validations, 
protected (display only) ficlds, auto-erasing 
fields, retain data fields, and more. You can 
check the look and operation of the screen 
with test mode. 


Sercens are saved in Microsoft object file 
format. You simply link the screen files with 
your application, so screen and field 
information is stored in your program (EXE) 
file rather than in separate data files that 
must be present at runtime. 


You get library routine support for fully 
overlapping and scrollable windows which 
use an approach called static windowing. This 
technique eliminates the need for replication 
of static data in dynamic memory. More 
than seventy library routines are available to 
manipulate your windows, control data entry 
and storage, create window-oriented menus, 
and more! 


Get Started Quick! A thorough on-disk 
tutorial is provided so that you can begin 
creating useful screens the day you receive 
the product. Utility programs that document 
each screen and allow you to prototype (or 
simulate) your application complete the 
package. 


Try It Out! Order your demo disk today. For 
$5.00 (refundable when you buy the product), 
you will receive a copy of the screen 
generator, the tutorial, and on-disk 
documentation on the utility programs and 
library routines. 


Data& Windows is $345, or $695 with library 
source code, and certain discounts are 
available. Be sure to specify which 
compiler(s) you use when ordering. 


Call (713) 665-4109 for more information. 
Major credit cards accepted. 


REQUIREMENTS: 

IBM PC/XT/AT/JR or true compatible, DOS 
2.0 or later, at least 128K free RAM, and one 
of the compilers listed above. Xenix support 
will soon become available. 


IBM, IBM PC, IBM XT, and IBM AT are 
trademarks of International Business Machines. 
Microsoft and XENIX arc trademarks of 
Microsoft Corporation. Aztec is a trademark of 
Manx Software Systems. High C is a trademark 
of MetaWare. 


MAGUS, INC. 
4545 Bissonet Suite #114 
Bellaire, TX 77401 
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Listing Seven (Listing continued, text begins on page 54.) 


-profile from the Account new 


awn 


60 
61 
62 
63 


# set default path to an empty rbin directory 
PATH=/u/bbs/new/rbin 

# set level one prompt to remind users how to log off 
PSl='Type CNTRL-D now... ' 

# display the welcome message 


cat msgl 
echo 


# make sure the user really wants an account 


echo "Do you wish to request a login? (Y/N) \c" 
read choice 


# continue only if the user answers yes 


if [ "$choice" = y -o "S$choice" = Y ] 
then 

echo 

OK="! Nn" 


# loop until user is satisfied with data 


while [ "SOK" != Y -a "SOK" I= y ] 
do 


# collect user name, address, etc. 


echo "Enter your real name: \c" 

read realname 

echo 

echo "Enter the first line of your mailing address: (4 lines are available)" 
read addressl 

echo 

echo "Enter the second line of your mailing address: <cr> if none" 
read address2 

echo 

echo "Enter the third line of your mailing address: <cr> if none" 
read address3 

echo 

echo "Enter the fourth line of your mailing address: <cr> if none" 
read address4 

echo 

echo “Enter your voice telephone number: \c" 

read phone 

echo 


# display the data entered for the user 


echo "This is what you have entered:" 
echo 

echo S$realname 
echo 

echo Saddressl 
echo Saddress2 
echo Saddress3 
echo Saddress4 
echo 

echo $phone 
echo 


# ask the user to verify the data 


echo "Is this correct? (Y/N) \c" 
read OK 

done 

OK=""Nu 


# loop until user is happy 


while [ "SOK" != y -a "SOK" I= ¥ 
do 


# collect the account data 


echo 

echo "Enter a one word login name: \c" 
read lognmae 

echo 

echo "Enter an initial password: \c" 
read initpasswd 

echo 


# display the entered data for the user 


echo "You have entered:" 
echo 

echo $logname 

echo Sinitpasswd 

echo 


# ask the user to verify the data 


echo "Is this correct? (Y/N) \c" 
read OK 

done 

echo 


# write the new account data to a holding file 


(continued on page 88) 
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Quick-Tools™ 
for QuickBASIC™ users! 
A comprehensive library of over 90 subroutines and 
functions directly CALLable from your QuickBASIC 
programs. 
SORT routines allow sorting of single and 
multidimensional arrays. 
Binary search functions. 
Unique screen handling functions allow splitting 
screens, fast scrolling, special string printing, 
character attribute control, phantom cursors, etc. 
Keyboard scanning and status calls, with field 
inputing and decoding. On screen editing of input 
fields. 
Unique file handling routines. 
FREE Updates and phone support! 
Plus much, much more! 
Only $129.95 Complete 


TURBO.ASM™ 
For Turbo PASCAL users ! 


A unique programming tool which is a must for 
every Turbo Pascal user. The only package designed 
for interfacing assembly language with Turbo 
Pascal. 

Outlines several different ways to add assembly 
language routines to Turbo programs, some without 
effecting your code space. 

Fully explains the internal workingsof Turbo Pascal 
and data passing methods. 

Includes a library of Assembly routines which can 
be used directly from Turbo Pascal. 

The best way to learn assembly language. 

FREE Updates and phone support! 


Only $99.95 Complete 





Professional Programming Products 
by BCSoft 


FREE 


PC-WRITE™ text editor 
with every purchase. 


| PROGRAMMERS AND SOFTWARE DEVELOPERS - LOOK AT THESE PRODUCTS! 


a 


NET-TOOLS”™ 
NETBIOS Programming Tools 


NET-TOOLS allows vou to write programs for ANY 
NETBIOS compatible local area network - fast and 
easily. CALLable from Microsoft Assembler, C, 
PASCAL, or FORTRAN. 
Add and Delete local names. 
Initiate and Cancel sessions. Just give NET-TOOLS 
the name of the computer vou would like to call, 
and it will automatically locate the user and make 
the connection for vou. 
Transfer Messages with automatic retries and error 
detection. Both the datagram and session protocols. 
Redirect Local Devices simply and easily with a 
single function call. 
Plus much MORE ! 
Complete SOURCE CODE is provided, FREE ! 
FREE Updates and phone support! 
ONLY $149.00 Complete 
ASMLIB™ 

The Programmer's Library 
A set of over 210 subroutines to greatly increaseyour 
productivity. Written in assembly language 
anddirectly CALLable from Microsoft Assembler, 
C,PASCAL, and FORTRAN. 
Complete SOURCE CODE provided -FREE! 
Text WINDOWing functions allow up to 64 
overlapping windows. 
TERMINATE and STAY RESIDENT programs 
arewritten easily. Programs can “POP UP” with a 
simplekeystroke. Use DOS calls from them, also. 
GRAPHICS on the EGA, CGA, and Hercules™ 
Monochrome. 
Virtual file functions. 
Full FLOATING POINT math and trig with 8087 
support. 
Int. driven async. support, plus MUCH MORE! 

Only $149.00 Complete. 


NO ROYALTIES REQUIRED 


To ORDER call or write to: 


BC Associates 
A division of BCSoft Corporation 
3261 N. Harbor Blvd. 
Suite B 
Fullerton, CA. 92635 


CALL TOLL DPREE 





VISA, M/C, or COD orders are welcome! S&S 


1-800-262-8010 





in CA. dial 1-714-526-5151 
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SEIDL 
MAKE 
UTILITY 


Version 2.0 


The BEST just got BETTER! 


If you're serious about software 
development, consider the SEIDL 
MAKE UTILITY (SMK). SMK is 
not just another copy of the Unix 
Make. It was specifically designed 
to deliver features and performance 
not found in other makes. 


Y Structured Language to 
describe dependencies in a clear, 
concise and portable manner. 


Y Rich Command Set 


includes parameterized macros, 
variables, if-then-else, iteration, 
wild cards, exception § cases, 


macro libraries, interactive state- 
ments, environment access, pat- 
tern matching and much more! 


Y Intelligent Analysis 


algorithm handles nested include 
files, library dependencies, and 
performs consistency tests to 
detect errors that other makes 
would blindly ignore. 


Y Seidl Version Manager 
compatibility lets you expand 
your system into the most 
comprehensive revision/version 
control system available. 


"SMK is a very good Make indeed. 
Its major distinction is a truly simple 
Dependency Definition Language, 
easy to learn and easy to Use... 
you ll probably bless SMK." 

— Sextant, July ’86 


"SMK offers many unique features. 
[The error handling facility] is 
extremely useful if a large number of 
files must be recompiled." 

— Computer Language, June ’86 


DOS $3.50 p&h 
Version +9 g”> Call for other 


Only Op systems. 


Call Today 
1-313-662-8086 


Visa/MC/COD Accepted 
Dealer Inquiries Invited 


SEIDL COMPUTER ENGINEERING 
3106 Hilltop Dr., Ann Arbor, MI 48103 
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Listing Seven (Listing continued, text begins on page 54. ) 


64 echo $realname >>signups 
65 echo $addressl >>signups 
66 echo S$address2 >>signups 
67 echo $address3 >>signups 
68 echo $address4 >>signups 
69 echo $phone >>signups 
70 echo $logname >>signups 
71 echo $initpasswd >>signups 
72 echo >>signups 
# tell the user that he or she is finished 
73 echo "This completes the login request process. You'll receive an account" 
74 echo “confirmation through the mail within a week." 
75 echo 
76 fi 
# tell the user to log off 
77 echo 
78 echo “Enter CTNRL-D to log off the system." sees 
729 echo End Listing Seven 
es e e 
Listing Eight 


-profile for the info Account 


PW OWA SW 


oO 


# set the default path to an empty rbin directory 
PATH=/u/bbs/info/rbin 

# set the level one prompt to the logoff message 
PSl='Type CNTRL-D now...' 

# display the welcome message 


echo 
echo " 
echo " 
echo 
cat msg 
echo 
echo "Press the carriage return to begin: \c" 
read dummy 


Welcome to Scholastech Telecommunications" 
Scholastech Info" 


# display the contents of the information file 


more info. file 

echo 

echo "Press the carriage return when done: \c" 
read dummy 

echo 


# give the user the choice of whether or not to sign up for workshops 


echo "Do you wish to sign up for a workshop? (Y/N) \c" 
read dummy 


# loop until user doesn't want to register for any more workshops 


while [ "$dummy" = y -o “S$dummy" = Y ] 
do 
echo 
echo “Enter your name: \c" 
read regname 
echo 
echo "For which workshop are you registering? \c" 
read workshop 
echo 
echo 
echo "Enter your school or company name: \c" 
read school 
echo 
echo "For how many people are you registering? \c" 
read people 
echo 
echo "Enter a voice phone number where you can be reached in case" 
echo "there are any questions about your registration: \c" 
read phone 
echo 


# write the registration data to disk 


echo S$regname >>signups 
echo $workshop >>signups 
echo $school >>signups 
echo $people >>signups 
echo $phone >>signups 
echo >>signups 


# allow the user to register for more than one workshop 


echo "Do you wish to register for another workshop? (Y/N) \c" 
read dummy 
done 


# tell the user how to log off 


echo 


echo “Type CNTRL-D to log off the system." © ous * 
echo TY 3 Y End Listing Eight 


(Listing Nine begins on page 90.) 
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Ty na 


verything you need to write dramatic 
graphics effects into your Eco-C88 C 
programs. Some of the features include: 
e Support tor EGA, CGA, and Z100 
e Over 100 graphics and support functions, many 
of which are PLOT-10 compatible. 
e Many low level support routines reside outside 
your small model code-data area 
Can write dots thru the BIOS (for compatibility) 
or to memory (for speed) 
Graphics function help from CED editor 
available 
World, pixel or turtle color graphics modes 
47 standard fill patterns, 17 line dashing 
patterns, Hershey fonts, plus user defineable 
fill, dash and fonts 
e Supports view areas, rotateable fonts, clipping, 
arbitrary fill areas, extensive error checking, 
examples, and user’s manual. 
A must for the graphics enthusiast and a 


bargain at only 3995 


*Requires Eco-C88 C Compiler. 





This windowing library allows you to add pop up 
windows in your C programs quickly and easily. 
Use them for help windows, selection menus, error 
messages, special effects — anywhere you need an 
attention getter. Just some of the features include: 
e CGA, EGA, and monochrome support 
e Slow mode option for “flicker” displays 
e Control any program that goes through the 

BIOS 


ECO-C88 
Ecosoft 


Support Products 


2 SER 





Use up to 255 windows 
No special window commands; use print f () 
Resize and move windows 
Custom window titles and borders 
Can be used with ANSI device driver 
Most of window's code-data lies outside small 
model limits 
Use any of the IBM text or block characters 
e User's manual and examples 

The Windowing Library requires an IBM PC 
compatible BIOS and the Eco-C88 C compiler. 


ONLY $29.95 


Now you can combine your modules, functions, 
and subroutines into your own library for easy link 
commands. Fully compatible with ANY standard 
OBJ format files (not just Ecosoft’s products). 
With the Ecosoft librarian, you can: 

e Add, delete, and extract from a library 

e Get table of contents or index of a library 

e Combine libraries, control library page size, use 
switches for combinations, process complex 
library requests, use wildcards, and do library 
directives from command files. 

e Complete with user’s manual 
A valuable addition for any programmer. 


ONLY $29.95 


Orders only: 


1-800-952-0472. 


Technical Information: 


(317) 255-6476 
2 St Bae 








529.9) 
$59:95 


Eco-Lib Librarian 
Eco-C88 C Compiler CED 


PHONE 








A C compiler with many ANSI enhancements 
at an unbelievably low price. The Eco-C88 C 
compiler has: 

e Prototyping (the new type-checking 
enhancement) 

Enum and void data types 

Structure passing and assignment 

All operators and data types 

A standard library with more than 200 func- 
tions (many of which are System V compatible 
for greater code portability) 

e CC and mini-make that all but automates the 
compile process 

8087 support (we sense the 8087 at runtime 
— no dual libraries) 

ASM or OBJ output for use with MSDOS linker 
Tiered error messages — enable-disable lint- 
like error checking 

e Fast compiles and executing code 

e Expanded user’s manual 

e CED full-screen program editor 

Everything you need at the unbelievable 
price of $59.95. 

Eco-C88 C compiler requires an IBM PC, XT, or 
AT (or compatible) with 256K of memory, 2 disk 
drives and MSDOS 2.1 or later. 


Ecosoft Inc. 
6413 N. College Ave. 
Indianapolis, IN 46220 


ORDER FORM cLIP & MAIL TO: Ecosoft Inc., 6413 N. College Ave., Indianapolis, IN 46220 








ITEM PRICE QTY TOTAL 
Flexi-Graph Graphics $39.95 
Window Library $29.95 


1 WVINGOW: LIDI ORY: 922 i Oe 


SHIPPING 


TOTAL (IND. RES. ADD 5% TAX) 











PAYMENT: [] VISA MC L) AE 1) CHECK 
CARD # EXPIR DATE 
NAME 
ADDRESS 
CITY STATE 















You could 
buy from our 
competitors . . . 








1CSS PC/VI™(vi, ex) $149.00 
Micro C-Tools™ 24.95 
(cal, dc, detab, entab, 
fgrep, show, sort, unig, 
find, od, file, touch, split) 
Dr. Dobb’s™ Shell (sh) 29.95 
Lattice™ Text Management 120.00 
Utilities (grep, diff, ed, wc) 
PC Profiler (prof) 125.00 






$448.90 







OR 


you could order the 
MKS Toolkit and get all 
these for only $139. 


ae 
THERE'S MORE! 


You also get awk, a 4gl 
report language. 


BUT THAT'S NOT 
ye 


...and database 
utilities such as join, 
cut, paste 


and there is still 
more: over 100 
utilities in all! 


SUCH as: 
cmp, cpio, ctags, dd, df, Is, 
nm, pg, sed, size, strings, 
time, tr... 


hem aie 
Wee Lem UTS 

eee 

COLD! 


Call us today: 
(519) 884-2251 


Not available on 8-track or cassettes. 
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Listing Nine (Listing continued, text begins on page 54.) 


logs 


SAO PWN 


30 


# create a temporary file with a log on record for each remote user 
who /etc/wtmp | grep ph >/u/user.log 
# if an "a" was entered as an argument to the command, display the entire log files 


if [ "si" =a ] 
then 
echo 
echo 
echo "System Logins" 
echo 


# display all system use since /etc/wtmp was last purged 


more /u/user.log 
echo 

echo "Next?" 
read dummy 

echo 


# display all BBS use since /u/bbs/log.file was last purged 


echo "BBS User Log" 
echo 

more /u/bbs/log. file 
echo 


# otherwise, show only the last ten entries in each log file 


else 
echo 
echo 
echo "Last System Logins" 
echo 
tail /u/user.log 
echo 
echo 
echo "Last BBS Activity" 
echo 
tail /u/bbs/log. file 
echo 
fi 


# remove the temporary file — . 
eeaere End Listing Nine 


rm /u/user.log 


Listing Ten 


usage 


WNre 


10 
11 
12 
13 
14 


15 
16 


17 


18 
19 


# print headings to report file 

echo "User Login Logout" >usage.temp 

echo "w~------------------ = " >>usage.temp 
echo " " >>usage.temp 

# get a log in record from /etc/wtmp for remote users on device phil 
who /etc/wtmp. | grep phl >templ 

# get the user name 

cut -f1 -d" " templ >temp2 

# get the log in date and time 

cut -c25-36 templ >temp3 

# get log out record from /etc/wtmp and extract the log out time 
who -d /etc/wtmp | grep phi | grep -v LOGIN | grep -v re | cut -c32-36 >temp4 
# paste together for the report 

paste temp2 temp3 temp4 >>usage.temp 

# print the report 

pr usage.temp >usage.summary 

# remove temporary files 

rm templ 

rm temp2 

rm temp3 

rm temp4 


rm usage.temp 


# format the BBS command use log for output and purge the log file 


pr /u/bbs/log.file >log. summary 
> /u/bbs/log. file 


# clean out /etc/wtmp 

> /etc/wtmp 

# send both reports to the printer 
lp usage.summary 


lp log.summary 


End Listings 
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engineers bring 
years of practical real-time 
experience to this mature 


MULTI-TASKING SYSTEM 


(version 2.0) 


for the IBM® PC, PC/XT and PC/AT 


@ No royalties w Dynamic operations: 
- task create/delete 
- task priorities 

- memory allocation 
@ Time slicing available m Event Manager 

m Intertask message passing # Semaphore Manager 


w IBM PC DOS® support 
@ C language support 
w Preemptive scheduler 


AMX86™ operates on any 8086/88, 80186/88, 80286 system. 


Demo package 
Manual only $75 US 
AMX 86 system $2195 US 


(shipping/handling extra) 
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Vitamin C Difference | 





With Vitamin C, your applications come 
alive with windows that explode into view! 
Data entry windows and menus become a 
snap. Vitamin C’s open ended design is 
full of ‘““hooks’’ so you can ‘’plug in’’ spe- 
cial handlers to customize most routines. 
Of course, Vitamin C includes all source 
code FREE, with no hidden charges. /t 
always has. 





Create windows with one easy function. 
Vitamin C automatically takes care of com- 
plicated tasks like saving and restoring the 
area under a window. 

Options include titles, borders, colors, 
pop-up, pull-down, zoom-in, scroll bars, 
sizes to 32k, and more. Unique built-in 
feature lets users move and resize windows 
at run-time! 


: Pees : 


Flexible dBase-like data entry and display 
_ routines feature protected, invisible, re- 
_ quired, and scrolling fields, picture clause 
_ formatting, full color/attribute control, selec- 
tion sets, single field and full screen input, 
and unlimited validation via standard and 
user definable routines. 





$28 us KADAK Products Ltd. 
206-1847 W. Broadway 
Vancouver, B.C., Canada 


Ik V6J1Y5 
Telephone: (604) 734-2796 
Also available for 8080, Z80, 68000 Arf Telex: 04-55670 











by MetaWare 














Es Sea 


It’s good for your system! 





Tees 


Standard help handler provides context 
sensitive pop-up help messages any time the 
program awaits key strokes. So easy to use 
that a single function initializes and services 
requests by opening a window, locating, for- 
matting, displaying and paging through the 
message. 

Multi-level Macintosh & Lotus style 
menus make user interfaces and front ends 
a snap. Menus can call other menus, func- 
tions, even data entry screens quickly and 
easily. 

Text editor windows can be opened for 
pop-up note pads and general purpose 
editing. Features include insert, delete, word 
wrap, justify, cut, paste, search, and more! 


eter 





With VCScreen and Vitamin C working 
together, you'll reach a new level or produc- 
tivity you can’t reach with a function library 
alone! 

VCScreen speeds development even more! 
The interactive screen editor actually lets you 
draw input, output and constant fields, 
headings, boxes, lines, even a window for 
your froms to run in. 

VCScreen generates readable C source 
code ready to ‘‘plug in’’ to your application 
and link with Vitamin C. 


0386 


SOFTWARE DEVELOPMENT TOOLS 
The Phar Lap 80386 Software Development Series: 


386|ASM/LINK by Phar Lap 
Full-featured macro assembler and linker. Includes a de- 
bugger and 32-bit protected mode runtime environment. 


80386 High-C™ by MetaWare 


80386 Professional Pascal™ 


UNIX™ and VAX/VMS® cross tools 


The wait for professional software development tools 
for the 80386 is over! Whether you are upgrading an 
existing IBM PC application to the 386, moving a 
mainframe application down to a PC, or writing the 
next PC best-seller, the Phar Lap 80386 Software 
Development Series is for you. It is an integrated line 
of products which provides everything you'll need to 
create and run 80386 protected mode applications 
under MS-DOS. 


60 Aberdeen Ave. 
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(MS-DOS®) $495 


(MS-DOS®) $895 





(MS-DOS®) $895 






(call) 





(617) 661-1510 
Phar Lap Software, Inc. “The 80386 Software Experts” 





Cambridge, MA 02138 








Guarantee 





Better than a brochure. More than a demo 
disk. If you’re not satisfied, simply return the 
package within 30 days and receive a full 
refund of the purchase price. 

WGI Ge 8k SER AS te ee $225.00 

Includes ready to use libraries, tutorial, 
reference manual, demo, sample and 
example programs, and quick reference 
card; for IBM PC and compatibles. Specify 
compiler and version when ordering. 
Vaormin-G Source oii. eh ee ee FREE” 

*Free with purchase of Vitamin C. 


A rt yeas’ Bien sale orategn a $99.95 
Requires Vitamin C and IBM PC/XT/AT or true 
compatible. 

Shipping $3 ground, $6 2-day air, $20 over- 
night, $30 overseas. Visa and Master Card 
accepted. All funds must be U.S. dollars 
drawn on U.S. bank. Texas residents add 
74% sales tax. 


(214) 416-6447 


creative. 


Creative Programming Consultants, Inc. 
Box 112097. Carrollton, Texas 75011 















These softstrips by Cauzin 
Systems contain the listings 
for C Chest. The listings 
begin on page 94. 
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an 

ii | ih The SLR SuperLinker Plus is 3 - 10 times 
ula (ARE faster than any other linker, and look at 
! these features: 

link a full 64K output (COM, HEX, SPR or PRL) 

works with Microsoft, Fortran, Basic, Cobol 

supports 32 character externals (SLR format) 

full drive/user support with alternate DU search 


supports 8 address spaces 
fill uninitialized spaces with O or FF 


global cross reference 
DSD80/SID compatible SYM file 195 
manual overlays 
load map 
requires Z80 CP/M 2.2 or greater 32K TPA 


__  .SLR_Systems 


1622 N. Main St., Butler, PA 16001 
(800) 833-3061 (412) 282-0864 
Telex 559215 SLRSYS 
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Listing One (Text begins on page 102. ) 





lj] #include <stdio.h> 


21 
31 /* PQ.Cc General-purpose priority-queue routines. 
4, * (C) 1987 Allen I. Holub. All Rights Reserved. 
By 8 
6] * typedef char *PqQ; Dummy typedef for priority queue. 
7, * 
81 * PQ *pq create( numele, elesize, cmp, swap, initheap ) 
9| * int numele; Max # of elements in the queue 
10} * int elesize; Size of one element in bytes 
11] * int (*amp) ()3 Pointer to comparison function 
12] * int (*swap) ()3 Pointer to swap function 
13] * char *initheap; Inital heap or NULL to allocate 
14) * 
151 * pq_ins( p, item ) Insert Item into queue 
16{ * PQ *p; Pointer to priority queue 
17| * char *item; Pointer to item to insert 
18| * Return number of empty slots 
19j * before insertion (0 if none). 
20); * 
21] * int pq.del( p, target ) Delete item from queue 
221 * BQ *p; Pointer to priority queue 
23] * char *target; Pointer to place to put deleted 
24) * item. 
zor * Return # of items in queue before 
401.4 delete (0 if nothing deleted). 
27| * 
28| * char *pq look( queue ) Look at (don‘t delete) top element 
29} * PQ  *queue; Pointer to queue. 
30) * 
31] * int pq _numele( queue ) Return # of elements in queue. 
321 * PQ *queue; Pointer to queue. 
33) * 
34,0 te-------------------------- +--+ + ee 
35} .*/ 
36) 
37| typedef struct 
38| { 
39| int (*cmp) (); /* compares two objects */ 
40] int (*swap) ()? /* swap two objects s/ 
41] int itemsize; /* size of one element in heap «/ 
42| int nitems; /* Number of items in the heap a/ 
43| int maxitem; /* Maximum number of items in heap */ 
44] Char *bottom; /* Ptr. to most-recently added item */ 
45] char *heap; /* pointer to the heap itself a/ 
46| } 
47| PQ; 
48) 
49| /*------------------- -- ~~ --- --- --- -- + - + 8 / 
SO} 
Sl] static void reheap down( p ) 
52] PQ *p; 
531 { 
54| /* Reheap the Heap, starting at the top and working 
$5] * down; 
56] sf 
57} 
58} int parent; /* index of parent */ 
59} int child; /* index of child a/ 
60} char ‘“*pparent; /* pointer to parent s/ 
61} char *pchild; /* pointer to child of 
62] char ‘*psibling; /* pointer to child's sibling */ 
63} char ‘heap; /* pointer to heap *7 
64| 
65] heap = p->heap; 
66] 
67| for( parent = 0, child = 1; child < p->nitems ;) 
68 | { 
69) Pparent = heap + (parent * p->itemsize); 
701 pehild = heap + (child * p->itemsize); 
714 
72] if( child+l < p->nitems ) 
73) { 
74) psibling = pchild + p->itemsize ; 
75} 
76| if( (*p->camp) (pchild, psibling) <0 ) 
77| { 
78] pchild = psibling; 
79| +t+child; 
80} } 
81] } 
82) 
83) if( (*p->cmp) ( pparent, pchild ) >= 0) 
84] break; 
85} 
pic (*p->swap) ( pparent, pchild ); 
88} parent = child; 
89] child = (parent * 2) + 1; 
90} } 
911 )} 
94 


92| 
93] 
94| 
95 | 
96| 
97} 
98 | 
99} 
100} 
101} 
102] 
103} 
104] 
105| 
106] 
107| 
108| 
109| 
110] 
111| 
112) 
113] 
114] 
115| 
116} 
117| 
118| 
119} 
120| 
121] 
122] 
123] 
124] 
125} 
126| 
127| 
128| 
129] 
130} 
131} 
132| 
133] 
134| 
135] 
1361 
137| 
138| 
139| 
140| 
141] 
142] 
143] 
144| 
145) 
146} 
147| 
148| 
149} 
150| 
1511 
152| 
153] 
154| 
155| 
156! 
157| 
158| 
159| 
160| 
161} 
162| 
163| 
164} 
165| 
166| 
167| 
168] 
169] 
170| 
171] 
172| 
173} 
174} 
175| 
176| 
177| 
178| 
179| 
180] 
181| 
182| 
183} 
184} 





| 8 ee ee rn nn = = nn on ee a/ 


static void reheap up( p ) 


PQ 
{ 


} 


*p; 


/* Reheap the Heap, starting at the bottom and working up. 
* Note that we must use a divide-by-2 rather than a 

* shift-right in the while loop because -1/2 == 0 but 

* -1 >> 1 = -1,. 


a f 

int parent; /* index of parent e/ 
int child; /* index of child ms 
char ‘*pparent; /* pointer to parent a 
char ‘*pchild; /* pointer to child a/ 
char ‘*heap; /* pointer to heap =/ 


child = p->nitems - 1; 
heap = p->heap; 


while({ (parent = (child-1) / 2) >=0 ) 

{ 
pchild = heap + (child * p->itemsize); 
pparent = heap + (parent * p->itemsize); 


if( (*p->cmp) ( pparent, pchild ) >= 0) 
break; 


(*p->swap) ( pparent, pchild ); 
child = parent; 











wee enn ween nw ne ene e/ 
PQ *pq_create( numele, elesize, anp, swap, initheap ) 
int numele; /* max # of elements in the queue */ 
int elesize; /* size of one element in byte e/ 
int (*camp) ()3 /* pointer to comparison function */ 
int (*swap) ()3 /* pointer to swap function e/ 
char *initheap; /* inital heap, NULL to allocate */ 
{ 
/* Create a priority queue that can hold at most 
*= “numele“ elements, each of size “elesize”. The 
* cmp function is passed two pointers to queue 
* elements and it should behave as follows: 
« 
. (*cmp) (pl, p2) 
® 
* For descending priority queues [pq get() returns the 
. largest item). 
* *pl < *p2 return < 0 
. *pl == *p2 return == 0 
a *pl > *p2 return > QO 
® 
* For ascending priority queues [pq get() returns the 
* smallest item}. 
. *pl < *p2 return > 0 
* *pl == *p2 return == 0 
. *pl > *p2 return < 0 
2 
* If the initheap argument is NULL, an empty heap is 
* created automatically, otherwise initheap must point 
* at an initialized numele-element-long heap. 
“f 
PQ *p, *malloc() 7 
int heapsize; 
heapsize = numele * elesize ; /* heap size in bytes */ 
if( initheap ) 
{ 
if( !(p = malloc(sizeof(PQ))) ) 
return OQ; 
p->heap = initheap; 
p->bottom = initheap + ((numele - 1) * elesize); 
p->nitems = numele; 
) 
else 
{ 
if( !(p = malloc(sizeof (PQ) + heapsize)) ) 
return 0; 
p->heap) == (char *) (p + 1); 
p->nitems = 0; 
p->bottom = p->heap - elesize ; 
p-?amp = cup; 
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185} 
186] 
187] 
188} 
189} 
190] 
191] 
192} 
193) 
194] 
195] 
196| 
197] 
198} 
199| 
200} 
201) 
202] 
203) 
204] 
205) 
206| 
207] 
208] 
209} 
210] 
2111 
212) 
213] 
214) 
215] 
216) 
217) 
218| 
219] 
220) 
2211 
222) 
223) 
224] 
225) 
226) 
227) 
228) 
229) 
230] 
2311 
232 | 
233) 
234] 
2351 
236] 
237| 
238) 
239) 
240] 
241] 
242) 
243) 
244| 
245] 
246] 
247] 
248) 
249) 
250} 
251| 
252] 
2531 
254| 
2551 
256] 
257| 
258] 
259] 
260 | 
261} 
262) 
263| 
264| 
265] 
266) 
267) 
268 | 
269) 
270) 
2711 
272 | 
273\ 
274) 
275) 
276| 
277) 
278) 
279| 
280) 
281| 
2821 





p->swap = swap; 
p->itemsize = elesize; 
p->maxitem = numele ; 
return p; 















} 


[Bee ww enn nw nw nn en nnn ne nn nn wn nn on nee nn nnn nn enn tt / 


pq_ins( p, item ) 
PQ *pe 

char *item; 

{ 


/* Pointer to priority queue 
/* Pointer to item to insert 


a7 
e/ 
/* Insert a new item into the priority queve (provided 
that space is available. 


Return the number of empty slots in the queue before 
the insertion. This number is 0 if the queue is 
full and nothing is inserted. Algorithm is: 


if( space is available in the queue ) 
increase queue size 
copy new item into bottom of queue 
reheap from the bottom up. 


2 
® 
a 
2 
2 
s 
2 
® 
® 
2 


*/ 
int space_avail = p->maxitem - p->nitems; Create interactive demos, tutorials 
and application prototypes with 
{f( space_avail > 0 ) COBOL spll’s dialogue facility. 
{ 
++( p->nitems ); COBOL splil’s powerful panel 
memcpy ( p->bottom += p->itemsize, éitem, p->itemsize );| Painter automatically sets 
reheap up( p ); attributes, generates automatic 
} 7 borders and lets you move or 


return space avail ; 
} 


int pq_del( p, target ) 












































WITHOUT THE PROPER TOOLS, 
ANY COBOL APPLICATION 


Generate native COBOL 
screen handling source 
code for your application. 


Or, use COBOL spll’s 
powerful runtime facility. 


With COBOL spll, you 
make the choice! 
We don’t make it for you. 


Only $345.00! After August 31, 
1987 the normal retail price of 
$395.00 will go into effect. 


Give us a call and we’ll send you 
our free demo. We think you'll 
be impressed with the power and 
flexibility of COBOL spll. 


COBOL spl! supports RM COBOL, 
Realia COBOL, Microsoft COBOL 
and RM COBOL 8x. 


COBOL spll ... THE MISSING 
LINK TO COBOL PRODUCTIVITY! 


Flexus International Corporation 
P.O. Box 9119 

Morristown, NJ 07869 

(201) 895-4724 





os: 
= 
oe 
= 
oe 
=_— 
oO 
= 
= 
== 


eT Et TAU ee eet) 


CAN BE A MAMMOTH PROJECT. 


MAMMOTH PROJECTS OFTEN FAIL 
WITHOUT THE RIGHT TOOLS. 








Application Developers! HI-SCREEN XL™, the newest version of HIGH SCREEN, 
is a complete and unmatched programming tool for managing your user interface. 
HI-SCREEN X/™ features a revamped and enhanced screen editor, increased 
speed and performance, along with a new thorough reference and user's manual. - 


1. WINDOWS: for on-line help, 
menus, data entry. Up to 26 levels 
deep. 

2. MENUS: pop-up, pull-down or 
Lotus-style, also for batch files. 

3. DATA ENTRY: automatic field 
checking: format, type, range... 
field by field or full screen. 
Error handling. 


4 SCREENS: full-featured screen 


editor. Language independent. Fast _ 


display from RAM. 







Royalty free, not copy protected, 30 day money back guarantee, trade up available. 


(415) 397-4666 
HI-SCREEN Xi™ is $1 
(CA res. add tax), S&H US 

Visa, MIC welcome 


PQ *p; /* pointer to priority queue a/ ' 
char *target; /* place to copy current largest item */ 40'Day Money Back Guarantee 
{ 
/* Copy the largest item in the priority queue to 
* the address held in target, then delete the item. : 
i 
* Return the number of items in the queue before the CIRCLE 189 ON READER SERVICE CARD 
* delete. If this number is 0, then nothing was 
* in the queue and *target will not have been 
* modified. Algorithm is: 
s 
* {4£( there's something in the queue } (1) 
* remember pointer to former first item (2) 
a replace the first item with the last one {3} ™ 
. shrink the heap by one element (4) 
® reheap from the top down {5} oe 
a / £ 
int slots in_use; 
if( slots_in_use = p->nitems ) ft 
{ 
memcpy( target, p->heap, p->itemsize ); /* 2 */ 
memcpy ( p->heap, p->bottom, p->itemsize ); /* 3 */ 
~-(p->nitems) ; pe eT Whatever tool you own: compare, you'll be convinced! 
p->bottom -= p->itemsize; 
reheap_down( p ); /* § */ 3. DATA ENTRY 
} ; : 
Just define your data entry fields and 
return slots_in_use ; let HIGH SCREEN™ do the job: 
} -integer|real/alphabetical/date/chosen 
[tan nn nn nn nnn nn nnn nnn nnn nn nnn nnn nt characters. format/range/upper case- 
lower case convertion/justify left! 
char *pq_look{ queue ) right/center/size/color. required input/ 
- seme auto-tabbing/password/Help message. 
/* Return a pointer to the largest/smallest element Automatic error handling. Cursor and 
* in the priority queue but don't dequeue it. arrow keys management. Field by field 
a! or full screen checking mode for 
return queue->heap; increased flexibility. 
} 
[t----------——-----—— ~--+---+---+------ - - = = = = 8 / 
int pq_numele( queue ) Softway, Inc. 
rg *queue; PC/SOFT Product Line 
/* Return number of items in queue = z sates aor 
of : ee 
fee ae 7 PY Te A ks RS UM Saat 
(continued on next page) 
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Listing One (Listing continued, text begins on page 102. ) 


283) 
284) 
285] 
286 
287| 
288 | 
289) 
290] 
291] 
292] 
293| 
294) 
295] 
296| 
297) 
298 | 
299) 
300] 
301} 
302] 
303] 
304] 
305] 
306 
307) 
308 | 
309} 
310} 
311] 
312) 
313} 
314| 
315] 
316| 
317] 
318] 
319} 
320} 
321) 
322] 
323) 
324] 
325) 
326) 
327| 
328) 
329) 
330] 
331] 
332] 
333) 
334] 
335] 
336| 
337| 
338] 
339] 
340} 
341] 
342) 
343) 
344| 
345| 
346| 
347] 
348} 
349) 
350] 
351) 
352) 
353) 
. 354| 
355] 
356] 
357| 
358) 
359] 
360} 
361] 
362) 
363) 
364) 
365] 
366] 
367) 
368} 
369) 
370} 
371] 
372| 
37%] 
374, 
375) 
376] 
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eee moore es aR: a/ 
$ifdef MAIN 
int Descending = 1; /* Change these in Codeview af 
int Makequeve = ]; /* to change the tests. */ 
anp( sl, s2 ) 
char **31, **g2; 
{ 
int rval; 
rval = stranp( *sl, *s2 ); 
if( Descending ) 
return rval; 
else 
return @rval:<° O°}. 2.283 
(rval> 0) ?.-13 
/* rval == 0 */ 0; 
) 
FON ae see ar, mn Sate me aie Vas see iw eo a Pe Cla eh ea eS ee ee oh ae af 
swap( sl, s2 ) 
char **5), **s2; 
{ 
char *tmp; 
tmp = *sl; 
*sl = *s2; 
*s2 = tmp; 
) 
/* _-—ese se ese se =F ese | = = = =_—lUcewelUCcreerlUlUr lUCU Ol = - =aolUcemel eel OCTUlUlCUCOUlCUC = - =—lUceS af 
printq( p ) 
PQ *p; 
{ 
int i; 
printf ("Queue is:\n"); 
printf ( MNGOMD sak oso eae OxtO04x\t", Pp->anup 3 
printf ( “\tswap........e02. Ox804x\n", p->swap 3 
printf( “\titemsize........ td\t", p->itemsize ); 
printf( “\tnitems.......... %d\n", p->nitems ); 
printf( “\tmaxitem......... %d\t", p->maxitem ); 
printf( “\tbottom........0- Oxt04x\n", p->bottom ); 
printf( "\theap.........00. Ox804x\t", p->heap 3 


printf ( “\tbottom - heap... %d\n\n*, (char **)p->bottom = 


(char **)p->heap )3; 
if( p->nitems <= 0 ) 


printf (“\tqueue is empty\n"); 
else for( i= 0; 1 < p->nitems ; i++ ) 


printf ("\t%-2d: %10.10s (0x*04x) (children: $2d, %2d)\n", 
i, ((char **)p->neap) (1), ((char **)p->heap) (1), 
































(2*1) +1, (2*1) +2 3 
) 
) 
Cine, ences ae aa “am ae ee a eat eal a Dal aes ie tn ee ete lon ee we: ae ee af 
main () 
{ 
PQ *queue; 
char buf(80}; 
a 
char *p; 
static char *testq[} = 
{ 
ars wi°; “2, “37, "4" 3". e6%. *7" “6, “ge 
Me 
if( Makequeue ) 
queue — pq create( 10, sizeof(char*), cmp, swap, 0 3 
else 
queue = pq create( 10, sizeof(char*), cmp, swap, testq); 
1f( !queue ) 
{ 
printf ("pq create failed\n"); 
exit( 1 ); 
} 
printf ("+--- —------—-— ~ ——+\n"); 
printf ("| Enter i<string><CR> to add string to I\n")3 
printf ("| queue, d<CR> to dequeue top element, q to |\n"); 
printf ("| exit the program. I\n")3 
printf (°+--—- nl --—-+\n") : 
while( 1 ) 
{ 








377] printq( queve ? 
378] printf( “\n(iidiq)(string) :"  ); 
379} gets ( buf e 
380} 
381] if( *buf == 'q’ ) 
382) exit( 1 ); 
383) 
384] else if( *buf = '{' ) 
385} { 
386] i = pq _ins( queue, strsave(buf + 1) ); 
387| 
388 | T2t°<3 
389) printf ("td slots avail. before insert\n", 1); 
390} else 
391} printf ("Queue was full, did nothing\n\n"); 
392) ) 
393)| else 
394) { 
395] i = pq_del( queue, (char*) &p ); 
396] printf ("%d slots used before delete, got <%s>\n", 
397| 4, p)? 
398 | a£t- 3-5 
399| { 
400} free( p )3 
401} p = “nothing”; 
402] } 
403) ) 
404] } 
405| } 
406] 
407| #endif End Listing One 
Listing Two 
Listing 2 -— strsave.c 
1| char *strsave( str ) 
2! char *str; 
31 { 
4| /* Save the indicated string in a malloc()ed section 
S| * of static memory. Return a pointer to the copy or 
6 * 0Oif malloc failed. 
7 “5 
8| 
9] register char *rptr; 
10] extern char *malloc(); 
11} 
12) if( rptr = malloc( strlen(str) +1 )) 
13) { 
14] strcpy( rptr, str )?; 
151 return rptr; 
16] ) 
17} 
18] return (char *)0; 
191 } End Listing Two 
Listing Three 
Listing 3 — freq.c 
1] #@include <stdio.h> 
2! 
3}: /* FREQ.C Print a list of the frequency 
4} * of occurance of all bytes 
oF in a list of files given on the command line. 
6; * Frequencies are printed as a probability x 100. 
7{ 8 For example, if we read a total of 20 characters, 
8| * S of which are ‘e', the probability of an ‘e' 
$j occuring in the input is 5/20 (.25) and freq will 
10) * output (.25 * 100) or 25. 
LE{-. 27 
12] 
13] typedef struct 
14| { 
15| int val; 
16] double count; 
17) } ITEM; 
18} 
19| @define TABSIZE 256 
20| ITEM Tab[{ TABSIZE }; /* I'm counting on this being a/ 
21] /* initialized to zero. o/ 
22) 
23| /*-------- nn nnn en nn nn nn no et / 
24) 
251 cmp( iteml, item2 ) 
26| ITEM *item)], *item2; 
271 { . 
28} /* Comparison function used by ssort(), below. 
29) * Count is the primary sort field and val is 
30) * the secondary field. 
31} e/ 
32) 
33) int rval: 
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9-Track Tape Subsystem 
34| for the IBM PC/XT/AT 








35) return ( iteml->count < item2->count ) 2-13 
36] ( iteml->count > item2->count ) ? 13 XENIX Or 
37] /* iteml->count == item2->count */ 
38] iteml->val - item2->val ; MS-DOS. 
391 } 
40| The solution to your 
a. SS Se en neem micro/mainframe 
42) communications 
43| main( argc, argv ) problem 
pi ie _—— available today! 
46| char *bin to ascii (); /* in pehar.c */ : 
47| FILE "fp; Qualstar’s new 
48| int i; ¥Y2inch9-track |, 
49| double smallest; MINISTREAMER brings full ANSI data interchange capability 
a — eee aha’ to the PC. Now you can exchange data files with virtually any 
52| dnuste aA i 8.0" other computer using 9-track tape. 
53] double probability = 0.0 3 : . - 7 : 
54 Available in both 7” and 1012” versions, the MINISTREAMER 
55| reargv( éargc, sargv ); /* Needed only for «/ weighs in at only 27 pounds and uses less desk space than an 
56| /* On Command! shell = */ ordinary sheet of paper, yet provides full 1600/3200 BPI 
E ai ak “ »cloeni one Sanat capability at an affordable price. Up to 134 megabytes of data 
- ‘a arge, +targv ; 9 *# arg (depending on format) can be stored on a standard 101” reel of 
60] if( fp = fopen( *argy, *rb")) ) ave cai Rapes: the Sa ER a highly-reliable answer 
61] perror( “argv ): o your backup requirements as well. 
62] else ; 
63] { Tape subsystem includes tape drive, coupler card, cables, 
64| fprintf( stderr, “%s\n", *argv )? dust-cover and MS-DOS or XENIX compatible software. 
65| ; ‘ ede Bes Prices start at $2,995. 
e . le( (i = getc(fp)) Discover the many advantages 
ci ‘5 acedeibcails 386 READY! 9-track tape has over other 
69} ++ Tab[{ 1 & Oxff }.count ; ee Micro/Mainframe links. 
70} , wal 
7} fs Call us today! 
72) fclose( fp ); | Yo. 
73 ) % 2. ® 
mt ay UWALSTAR 
751 : oe S 3 gee. = 
76} /* Find largest and smallest elements and at the same , ee < 
77| * time initialize the val fields of the Tab entries. | . : a Boies ae 
78} ef | : atsworth, 91311 
79 : Telephone: (818) 882-5822 
80} largest = 0.0; 
81] smallest = numchars ; 
82| 
i for( i1=0 3; i <= Oxff 3 i++ ) 
84| { ® 8 
85| Tab(i).val = 1; Along With Your Computer, Your Time 
86| S ost Important Thing You 
87} if( Tab[(i}.count > 0.00000001 5 the we an. Waste It? & 
88 | && Tab[(i}.count < smallest ) wn. . SO 7 aste ? 
89] smallest = Tab(i]}.count; 
90] . ee 
91) if( Tab{i}.count > largest ) Quilt Programmer Productivity 
92| largest = Tab(i}.count; Tools will help you manage your 
an software projects and get control 
95| /* Sort the list by probability. A shell sort is used. of your time! 
96] * You can replace the ssort call below with a call to 
97| * the qsort() subroutine, available with many compilers. srMs™ 
98| * Qsort() takes the same arguments as ssort(). a Revision Management System Intelligent Program Generation Utili 
99) * A version of qsort appeared in the in the C Chest, a =r 7 . 7 
100} * DDJ $102 (April, 1985; also Bound Volume 10, p.316). =Full Featured Revision Control System |@=Controls the rebuilding of even the most 
101] * The ssort() subroutine appeared in DDJ #113, C Chest oe ee oad a we, File | complex vig s i 
=Support Unlimi brari = Relieves of remembering 
mit _ ial ideale -Support for all programming languages miotallew aunnd 66 He etait haaed 6 rodent 
=Allows you to use your current compilers | changes, how to rebuild them, and in what 
104| and editors without conflict order to rebuild them 
105] ssort( Tab, TABSIZE, sizeof(ITEM), cmp )? = Windowing Shell interface to simplify use] = Works with most compilers, assemblers, and 
106| =MERGE facility to consolidate different linkers 
107] /* development paths easily, while pointing | -Supports full macro definitions, UNIX make- 
108| * Print the list. Each element is printed as three out conflicting areas file ee pring recursive invocations, and 
109] * numbers: the value of the charcter (in hex), the ine reporting on tam ek Pe 
110] * probability of that character apearing in the input, Handles big programming projects easily | you with a complete set of productivity tools 
111 * and the probabability normalized so that the least- 20.40 Die Patlinente- and Wxwinicient to handle any size project 
112] * frequently occuring probability has the value 1. Variable Support = Requires DOS 2.1+, 128K F/H Disk 
113] */ = Requires DOS 2.1+, 224K, F/H Disk 
114| ‘ 
115] for( 1 =0; i < TABSIZE ; i++ ) SRMS Version 38.0..........006 QMAKE Version 1.2........0-c-cecereeeee $99 
116] { SRMS + QMAKE Kcunbenenetdppiedienbosasaene 
117| probability = Tab[(i].count / numchars ; 
118} sum += probability; NEW § TXT Tools New 2 
119] snttinnvee. wit OFX QSE - Quilt Text Sueam Editor 
120) printf£( "Oxt02x\tt7. tel. n*, 5 Ps nit 
121] Tab(i}.val, Ta: Soe es 
122] probability, “> eae 7 : le Diff Utili 
123} Tab(i}.count / smallest )? wee sas Pike tie eo rors e 
fe : ) TXTTOOLS Version 1.0.....seseseeseees $85 
126| fprintf£( stderr, “Total = %8.6f (N = %8.2f) \n", 
127} sum, numchars ); 7048 Stratford Road 
128] } Woodbury, MN 55125 Sig, a 
(612) 739-4650 cs 
End Listings COMPUTING Volume Discounts and Dealer Inquiries Welcome 
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Listing One (Text begins on page 116. ) 
Listing 1. Inheritance in SCOOPS 
7 (C) Copyright 1987 Ernest R. Tello 


(define-class artifact 
(instvars material weight purpose cost) 
(options 
(gettable-variables material weight purpose cost) 
settable-variables 
inittable-variables) ) 


(define-class transport-means 
(instvars medium time-range power-source) 
(mixins artifact) 
(options 
(gettable-variables medium time-range power-source) 
settable-variables 
inittable-variables) ) 


(define-class transport-vehicle 
(instvars load-capacity length max-speed) 
(mixins artifact transport-means) 
(options 
(gettable-variables load-capacity length max-speed) 
settable-variables rf 
inittable-variables) ) 


(define-class passenger-vehicle 
(instvars capacity safety dining facilities) 
(mixins artifact transport-means transport-vehicle) 
(options 
(gettable-variables capacity safety dining facilities) 
settable-variables 
inittable-variables) ) 


(define-class water-transport-vehicle 
(classvars ( body-name ‘hull) (dof 2) (dangers ‘sink ) (advantages ‘relaxing )) 
(mixins artifact transport-means transport-vehicle passenger-vehicle) 
(options - 
(gettable-variables dof dangers) 
settable-variables 
inittable-variables) ) 


(define-class surface-vessel 
(instvars #-decks #-masts #-engines ) 


(mixins artifact transport-means transport-vehicle passenger-vehicle water-transport- 
vehicle) 


(options 
(gettable-variables #-decks #-masts #-engines ) 
settable-variables 
inittable-variables) ) 


(define-class ship 
(instvars 


x-position y-position x-velocity y-velocity mass) 
(mixins surface-vessel) 
(options 


(gettable-variables x-position y-position x-velocity y-velocity mass) 
settable-variables 
inittable-variables) ) 


(define-method (ship speed) () 
(sqrt (+ (expt. x-velocity 2) 
(expt y-velocity 2)))) 


(define-method (ship direction) () 
(atan y-velocity x-velocity) ) 


(define-class ocean-liner 


(instvars company launched homeport tons ) 
(mixins snip) 
(options 


(gettable-variables company launched homeport tons ) 
settable-variables 
inittable-variables) ) 


(define shipl 
(make-instance ship 


‘x-position 100 
“y-position 150 
*x-velocity 30 
‘y-velocity 40 
‘mass 100)) 


(compile-class artifact) 
(compile-class transport-means) 
(compile-class transport-vehicle) 
(compile-class passenger-vehicle) 


(compile-class water-t ransport-vehicle) 
(compile-class surface-vessel) 


(compile-class ship) 
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(compile-class ocean-liner) 


End Listing One 
Listing Two 


Listing 2. Multiple Inheritance in SCOOPS 
7 (C) Copyright 1987 Ernest R. Tello 


(define-class business 
(instvars name location industry business-type size 
year-founded ownership-type gross-sales costs 


market-share) 
(options 
(gettable-variables name location industry 
business-type size year-founded 
ownership-type 
gross-sales costs market-share) 
settable-variables 
inittable-variables) ) 


(define-method (business calc-net-gain) (gross-sales costs) 
(- gross-sales costs) ) 


(define-class adversary 
(instvars aggressiveness allies goals common-goals 
strengths weaknesses) 
(options 
(gettable-variables aggressiveness 
allies goals common-goals 
strengths weaknesses) 
settable-variables 
inittable-variables) ) 


(define-class competitor 
(mixins business adversary) ) 


(compile-class business) 
(compile-class adversary) 
(compile-class competitor) 


(define your-business (make-instance business) ) 


(define competitor-1 (make-instance competitor)) End Listings 


FTL MODULA-2 $49.95 


The most programming power 
for your money 


! A-2. 
gives ve of WodUL 
5 file ed oules. 
-{\me product | pos.” 


or NPV ey Ne 
SOURCE FOR C 


- Canadian Sales 
- Canadian Service 
- Canadian Technical Support 
- Canadian Product Knowledge 


We specialize in programming & development software 


LIFEBOAT ¢ LATTICE *e GREENLEAF ¢ PHOENIX 
SOFTCRAFT « MICROSOFT « BLAISE « ESSENTIAL 
AGE OF REASON « DESMET « AZTEC 
MARK WILLIAMS ¢ GIMPEL ¢ ROUNDHILL « GSS 
HALO « FAIRCOM « RAIMA « INTEL ¢ etc. « etc. « 


“er Call for full price list—Dealer enquiries welcome Ba) 


We know our products—we use them! 


SCANTEL SYSTEMS LTD. 
801 York Mills Rd., Don Mills, Ont., M3B 1X7 
(416) 449-9252 
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SEND 


ECK OR 
GONE ORDER 
10: 


MasterCard and VISA welcome. 


a == Please add $3.00 Shipping and Handling. 
> 7 
Calif. residents please add 6% sales tax. 
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YOUR SYSTEM'S 
KEY COMPONENT 


The Only Magazine By And For 
Advanced Micro Users. 





At last there is a magazine that brings you the strictly 
technical but practical information you need to stay 
up-to-date with the ever changing microcomputer 
technology . . . Micro/Systems Journal. Micro/Systems 
Journal is written with the needs of the systems 
integrator in mind—the individual who’s involved in 
putting together the hardware and software pieces of 
the microcomputer puzzle. 


In each issue of Micro/Systems Journal you'll find 
such useful and progressive articles as: 


e Interfacing to Microsoft Windows 
e Unix on the PC 


¢ 80386 Programming 
¢ High Resolution PC Graphics 


¢ Using 80286 Protected Mode 
¢ Multiprocessing and Multitasking 


You'll get the hands-on, nuts and bolts information, 
insight and techniques that Micro/Systems Journal is 
famous for . . . in-depth tutorials, reviews, hints . . . the 
latest information on computer integration, networks 
and multi-tasking, languages, and operating systems . . . 
hard-hitting reviews. 

To start your subscription to Micro/Systems 
Journal, simply fill out one of the attached cards or 
write to Micro/Systems Journal, 501 Galveston Dr.., 
Redwood City, CA 94063. You'll receive a full year (6 
issues ) of Micro/Systems Journal for just $20, and 
enjoy the convenience of having M/SJ delivered to your 
doorstep each month. Don’t wait . . . subscribe today! 





IV Yes! | want to subscribe to So 
Micro/Systems Journal. 


and save over 15% off the cover price. : 
[_]1 Year (6 issues) $20 [_] 2 Years (12 issues) $35 


_] Please charge my: (_] Visa (_] MasterCard 2 American Express 
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Savings based on a full one-year cover price of $23.70. Canada and Mexico add $3 for surface mail, $7 for airmail per 
year. All countries add $12 for airmail per year. All foreign subscriptions must be prepaid in U.S. dollars drawn ona U.S. 
bank. Please allow 6-8 weeks for delivery of first issue. 


A Publication of M & T Publishing, Inc. 3013 
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Savings based on a full one-year cover price of $23.70. Canada and Mexico add $3 for surface mail, $7 for airmail per 
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bank. Please allow 6-8 weeks for delivery of first issue. 
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Publication Quality 
Scientinie Grapnics 


Over 100 C routines make 
scientific plotting easy 


linear, log, & polar plots 

bar charts & Smith charts 
contour plots with labels 

3-D curves, 3-D surfaces 

4 curve types, 8 markers, errorbars 
14 fonts, font editor 

unlimited levels of SUP°"scripts 

4096 x 3120 resolution in 16 colors 
on EGA, Tecmar, Sigma boards 

-> Zoom, pan, window and merce plots 
- high resolution printer dumps 


jee Sar i A” sia rh Se tas in 
Vo OWN WN 


SOURCE INCLUDED for persona/ use only 
$350. Demo $8 


256k. 18M: Al aéei; Corona -FPCs; BOS 22x. 35.5% 
Most boards, printers, and plotters supported 
Microsoft, Lattice, DeSmet, Aztec, C86 compilers 


sin(x)Jcos{x-y) 
Polar Plot fest 3 


AW Se 
BS SW 
XA CLL 

g Ss 


Scientific Endeavors Corporation 


Route 4, Box 79 Kingston, TN 37763 (615) 376-4146 


$750 


Assembly source code for Sin, Cos, 
Tan, Atan, Log, Exp and Sart. 


|1 Single and double precision versions. 


|. Highly optimized code. 


‘132k Floating Point Package:$500 

|| Assembly source code to emulate the 

'| 32081 coprocessor in software. 

|| Emulation is transparent to user code. 

|. Allows building of systems with the 
coprocessor absent or optional. 


"Price includes right to distribute binary | 


|. copies in a product without royalties. 


Call W.R.I.S.T. Inc. (718) 937-7955 
L.LC., N.Y. 11101 


|. 8-33 40th Ave., 
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lQCLISP 


More Common Lisp features in less space 
for less money than any other IBM-PC lisp. 




















m MSDOS portable 
@ Bignums, 8087 support 

@ Multidimensional arrays 

m Full Common Lisp package system 

@ Full set of contro! primitives. 

m@ Keyword parameters, macros 

m Save/restore full environments for speed 


mm STEP, TRACE, BREAK, DEBUG, ADVISE, 
APROPOS 


@ Roll-out frees space for invoking MSDOS 
commands 






{a Integral Quality 


lIOQCLISP PACKAGE $300. 
P.O. Box 31970 
Seattle, Washington 98103 


LISP (206) 527-2918 
ES 








Now with a compiler. 





m@ Compiler comes with source 


m Compiler cuts execution time 50-/5%, 
program size 60-80% 


@ Multidimensional arrays 

@ Floating point, bignums, 8087 support 
@ Macros 

@ Color graphics 

@ Multiple display windows 

mw Assembly language interface 

wi Available for IBM PC or TI-PRO 





lOLISP PACKAGE $270. 
INCLUDES COMPILER 


@ VISA and Mastercard accepted 
@ Generous update policy 
@ Attractive educational license — 


CIRCLE 327 ON READER SERVICE CARD 


‘COLUMNS 


his month is the first of what 

has unintentionally become a 
two-part article. I had intended to 
implement an interesting variant of 
the Huffman encoding data-com- 
pression algorithm that is used by the 
Unix COMPACT program and is de- 
scribed in Robert Gallager’s article 
‘Variations on a Theme of Huffman”’ 
(IEEE Transactions on Information 
Theory, vol. IT-24, no. 6 [November 
1978): 668-674). Gallager describes an 
adaptive one-pass Huffman code in 
which the code changes as the input 
file is processed. This way the code 
tree stays optimal over the life of the 
file. As usual, the problem proved 
more intractable than I had at first 
anticipated. So, this month I'll de- 
scribe some of the stuff I developed 
along the way to a solution; I'll dis- 
cuss the actual compression algo- 
rithm in a future column. 


Priority Queues 

A queue, in the normal! data-structure 
sense of the word, works like a line 
in a bank does. New entries are add- 
ed to the back of the queue, and 
items are removed from the front. 
That is, the items in the queue are or- 
dered by insertion time—those items 


by Allen Holub 








that were inserted first are removed 
first. Another kind of queue is a pri- 
ority queue or heap, a queuelike data 
structure in which something other 
than time is used to order the ele- 
ments. For example, the largest or 
smallest element—rather than the 
least-recently inserted element— 
could be the first to be dequeued. 
Heaps have several uses (other than 
Huffman codes). For example, a heap 
is used to do the merge phase of the 


102 





CHEST 


Priority Queues 





external-sorting program described 
in the June 1986 C Chest. A clever 
sorting algorithm (heapsort) uses a 
priority queue to do the sorting. Ele- 
ments are put into the queue in ran- 
dom order, and the smallest element 
is extracted repetitively until the ar- 
ray is sorted. 

The file PO.C (Listing One, page 94) 
contains a set of general-purpose pri- 
ority queue routines. Queues can be 
constructed of any sort of object 
(numbers, pointers, structures, and 
so forth) and can be ordered in any 
sort of way. You could, for example, 
keep a queue of structures, adding 
structures to the queue at random 
but always extracting the one with 
the smallest key. You could also cre- 
ate a queue of pointers to structures. 
You could even use these routines to 
maintain a normal (but inefficient) 
queue by adding a time-entered field 
to the structure and then extracting 
by smallest time entered. Similarly, a 
stack can be represented by a priori- 
ty queue in which the item with the 
largest time entered is removed first. 

PQ.C contains five externally acces- 
sible routines. The first of these cre- 
ates a new queue: 


typedef char 
QUEUE 


QUEUE; 

*pq—create( numele, 
elesize, cmp, swap, 
initheap ) 

int numele; 

int elesize; 


int (cmp); 
int (swap) ); 
void *initheap; 


The QUEUE type is a dummy pointer- 
size type that is used in the same way 
as is the FILE pointer returned from 
fopen( ). Pq—create( ) is passed five 
arguments. Numele is the maximum 
number of elements in the queue. 
Elesize is the size of one element. 
Cmp is a pointer to a comparison 
function. It is passed pointers to two 
enqueued objects and should return 
a value as indicated in Table 1, page 
105. Swap is a pointer to a swap func- 
tion. It is passed pointers to two ob- 
jects, and it should swap the objects 
(not the pointers). Finally, initheap 
can be used in two ways: if it is NULL, 
an empty priority queue is created; 
otherwise, initheap is assumed to be a 
pointer to an already-initialized num- 
ele-long array that will be used as the 
heap. I'll discuss the utility of this in a 
moment. I've used the ANSI syntax 
here to declare initheap. A void point- 
er is one that doesn’t point at any ex- 
plicit object; you have to cast it to a 
pointer to a real type to use it. If your 
compiler doesn’t suppori void point- 
ers, use a pointer to char. 

A queue that’s created by 
pq—create( ) can be deleted by free( ); 
just pass it the pointer returned from 
pq_—create( ). Note, however, that this 
will only free memory allocated by 
pq—create( ) itself. If you create your 
own initial queue and pass it to 
pq—create( ) via the initqueue argu- 
ment, you'll have to free up the 
memory that you allocated. By the 
same token, if you create a queue of 
pointers to strings, free( ) will free 
the memory used by the queue but 
not by the strings. 

I'll illustrate how to set up a queue 
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C PROGRAMMERS! 


db_VISTA: fast C Database 





Performance... 


High-speed data access and low data 
redundancy ... just two benefits of 
using Raima’s network model DBMS, 
db_VISTA. Combine these benefits 
with those of C—speed, portability, 
efficiency and you begin to under- 
stand db_VISTA’s real measure... 
performance. 


fast... 


It’s fast — almost 3 times faster than a 
leading competitor. Fast access that comes 
from the unique combination of the B-tree 
indexing method and the “network 
model”’’ or direct “‘set’’ relationships 
between records. A winning combination 
for fast performance. 


new db_ QUERY"... 


Add our new C-linkable, SQL-based, ad 
hoc query and report-writing companion 
product to provide a simple relational 
view of db_VISTA’s complex network 
model database. Without compromising 
speed. Ask for db_ QUERY! 


portable... 


db_ VISTA and db_QUERY operate on 
most popular computers and operating 
systems like MS-DOS, UNIX, and VMS. 
You can write applications for micros, 
minis, or even mainframes, allowing the 
same C applications to run under MS- 
DOS, UNIX, and VAX VMS. 


multi-user... 


db_VISTA has multi-user capability 
and supports simultaneous users in either 
multi-tasking or local area networking 
environments. 


here’s how... 


Design your database and compile your 
schema file with the database definition 
language processor. Develop application 
programs, making calls to db_VISTA’s C 
functions. Edit and review your database 
using the Interactive Database Access 
utility. Compile and link your C program 
with the db_VISTA run-time library, and 
your application is ready to run. 


RAIMA" 


CORPORATION 





source code... 


We make our entire C Source Code 
available so you can optimize performance 
or port to new environments yourself. 


efficient... 


db_ VISTA uses space efficiently. It lets 
you precisely define relationships to 
minimize redundant data. It is non-RAM 
resident; only those functions necessary 
for operation become part of the run-time 
program. 


royalty free... 


Whether you’re developing applications 
for yourself or for thousands, you pay for 
db_VISTA or db_ QUERY only once. No 
extra run-time charges. 


free support... 


Raima’s software includes free tele- 
phone support and software updates for 
60 days. Technical support personnel are 
available to answer questions about our 
software or yours. 


order now... 


Put db_VISTA to work in your 
application program. Ordering is easy 
— simply call toll-free. We'll answer 
your technical questions and get you 
started. Call today. 
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BASICS, ADVANCED, INTERNALS 


June 15-19 Seattle, WA USA 
Call for additional dates 
db_VISTA db_QUERY 

@ Single-user $ 195 $ 195 
@ Single-user w/Source $ 495 $ 495 
@ Multi-user $ 495 $ 495 
@ Multi-user w/Source $ 990 $ 990 

NEW: 
@ VAX Multi-user $ 990 $ 990 
@ VAX Multi-user 

w/Source $1980 





30 day money-back guarantee! 


now offers SQL-based Query 


db VISTA 


Features 


Multi-user support allows flexibility to 
run on local area networks 

File structure is based on the B-tree 
indexing method 

Transaction processing assures multi- 
user consistency 

File locking support provides read and 
write locks 

SQL-based db_QUERY is linkable 

File transfer utilities included for ASCII, 
dBASE optional 

Royalty-free run-time distribution 
Source Code available 

Data Definition Language for specify- 
ing the content and organization of your 
files 

Interactive database access utility 
Database consistency check utility 
Key file build utility 

ASCII file import and export utility 


File Management Record 
and File Sizes 


Maximum record length limited only by 
accessible RAM 

Maximum records per file is 16,777,215 
Maximum file size limited only by avail- 
able disk storage 

Maximum of 256 index and data files 
Key length maximum 246 bytes 

No limit on number of key fields per 
record 

No limit on maximum number of fields 
per record 


Operating System 
& Compiler Support 


Operating systems: MS-DOS, PC-DOS, 
UNIX, XENIX, UNOS, ULTRIX, Micro- 
port, VMS 

C compilers: Lattice, Microsoft, IBM, 
DeSmet, Aztec, Computer Innovations, 
Turbo C, XENIX and UNIX 





what others say... 


“If you are looking for a sophisticated C pro- 
grammer’s database, db_VISTA is it. Raima’s 
customer support and documentation is excel- 
lent. Source code availability and a royalty-free 
run-time is a big plus.’ 

Dave Schmitt, President 
Lattice, Inc. 


“db_ VISTA has proved to be an all-around high 

performer in terms of fast execution, flexibility 

and portability, and has undoubtedly saved us 
much time and development effort.” 

John Adelus, Hewlett-Packard Ltd. 

Office Productivity Division 


call toll-free today! 


1 (800) db-RAIMA 


(that’s 1-800-327-2462) 


3055 - 112th N.E., Bellevue, WA 98004 USA (206) 828-4636 Telex: 6503018237 MCIUW 
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UNIX TOOLS FOR YOUR PC 





UNIX’s VI Editor Now Available For Your PC! 


Are you being as productive as you can be with your computer? 
An editor should be a tool, not an obstacle to getting the job done. 
Increase your productivity today by choosing PC/VI—a COMPLETE 
implementation of UNIX* VI version 3.9 (as provided with System V 
Release 2). 

PC/VI is an implementation of the most powerful and most 
widely used full-screen editor available under the UNIX operating 
system. The following is only a hint of the power behind PC/VI: 

e Global search or search and replace using regular expressions 

e Full undo capability 

e Deletions, changes and cursor positioning on character, word, 
line, sentence, paragraph, section or global basis 

e Editing of files larger than available memory 

e Shell escapes to DOS 

e Copying and moving text 

e Macros and Word abbreviations 

e Auto-indent and Showmatch 

e MUCH, MUCH MORE! 

Don't take it from us. Here’s what some of our customers 
say: “Just what I was looking for! “It’s great!) “Just like the real 
VI!". “The documentation is so good I have already learned 
things about VI that I never knew before.” — IEEE Software, 
September 1986. 

PC/VI is available for IBM-PC’s and generic MS-DOS? systems 
for only $149. Included are CTAGS and SPLIT utilities, TERMCAP 
function library, and an IBM-PC specific version which enhances 
performance by as much as TEN FOLD! 


PC/TOOLS’ 


What makes UNIX so powerful? Sleek, Fast, and 
POWERFUL utilities! UNIX gives the user not dozens, but 
hundreds of tools. Now the most powerful and popular of these are 
available for your PC! Each is a complete implementation of the 
UNIX program. Open up our toolbox and find: 


e BANNER e DIFFH e PASTE e SPLIT 

e BFS e DIFF3 e PR e STRINGS 
e CAL e GREP e RM e TAIL 

e CHMOD e HEAD e SED e TR 

e CUT e MAKE e SEE e TOUCH 

e DIFF e OD e SORT e WC 


All of these for only $49.00; naturally, extensive documentation 


is included! PC/SPELL’ 


Why settle for a spelling checker which can only compare words 
against its limited dictionary database when PC/SPELL is now 
available? PC/SPELL is a complete implementation of the UNIX 
spelling checker, renowned for its understanding of the rules of 
English! PC/SPELL determines if a word is correctly spelled by 
not only. checking its database, but also by testing such 
transformations as pluralization and the addition and deletion 
of prefixes and suffixes. For only $49.00, PC/SPELL is the first 
and last spelling checker you will ever need! 

Bes aS 


Buy PC/VI and PC/TOOLS now and get PC/SPELL for only 
$1.00! Site licenses are available. Dealer inquiries invited. MA 
residents add 5% sales tax. AMEX, MC and Visa accepted without 
surcharge. Thirty day money back guarantee if not satisfied! 
Available in 5'4” 3'2” and 8” disk formats. For more information 
call today! 


*UNIX is a trademark of AT&T. *+MS-DOS is a trademark of Microsoft. 


CUSTOM SOFTWARE SYSTEMS 
PO. BOX 678 » NATICK, MA 01760 
617 653 2555 
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G CHEST 
(continued from page 102) 


with a moderately complex exam- 
ple—say you want to keep a queue of 
pointers to the following structures: 


typedef struct 
int weight; 
char “stuff; 
long more_stuff; 


ITEM: 


The ITEMs can be inserted in any or- 
der, but they will be extracted in or- 
der of decreasing weight. The com- 
parison function used for this 
purpose looks like this: 


cmp( p1, p2) 
ITEM **p1, *p2; 


return (*p1)-> weight 
— (*p2)-> weight; 
and the swap function looks like this: 
swap( p1, p2) 


ITEM “p1, *p2; 


ITEM *tmp; 
tmp = *p1; 
*p1 eo “tie. 

*p2 = tmp; 


If you had wanted to order the queue 
by increasing—rather than decreas- 
ing—weight, you would have re- 
versed p1 and p2 in the comparison 
function’s return statement. 

An empty ten-element queue can 
now be created with the following: 


QUEUE *qp; 
qp = pq—create( 10, sizeof(ITEM”), 
cmp, swap, 0); 


Items are added to the queue using: 


int pq—ins( qp, item ) 
QUEUE *qp; 


char *item; 


where gp is a pointer returned from 
a previous pq_create( ) call and item 
is a pointer to the object to insert. 
Pq_—ins( ) returns the number of 
empty slots that were in the queue 
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before the insert. If the return value 
is 0, the queue was full and pq_ins( ) 
will have done nothing. A new item 
is inserted in the queue that I created 
earlier with the following code: 


ITEM “p; 
p = (ITEM *) malloc (sizeof(ITEM)); 
p->stuff = ”A string”; 
p-> weight = 5; 
if( !pq—ins( qp, &p)) 
printf” queue is full”); 


Note that you have to pass in the ad- 
dress of the object to enqueue—in 
this case the address of the pointer p. 
Items are extracted from the queue 
with: 


int pq—del( qp, item ) 
QUEUE “qp; 


char *item; 


where, again, gp is a QUEUE pointer 
returned from pq_—create( ) and item 
is a pointer to a place into which the 
dequeued object will be copied. The 
number of items in the queue before 
the delete is returned. If this number 
is 0, the queue was empty and the 
contents of *item are undefined. For 
example, the largest element of the 
queue can be dequeued with the fol- 
lowing code: 


ITEM *p; 


if( !pq—del( qp, &p )) 
printf(” queue is empty”); 


Two additional support routines 
are provided: 


char *pq—look( p ) 
char *pq—numele( p) 
QUEUE “p; 


Again, p is a pointer to a QUEUE re- 
turned from a previous pq_create( ) 
call. Pg_look( ) returns a pointer to 
the object at the head of the queue. 
The object is not actually dequeued, 
however. Pg_numele( ) returns the 
number of elements currently in the 
queue. 


Implementation 

A priority queue can be represented 
by a binary tree that has the follow- 
ing properties: 


1. All children in the tree have a val- 
ue less than their parent. 
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2. The tree is as perfectly balanced as 
possible—that is, the difference in 
height of all leaves is at most 1. 

3. Leaves are inserted into the tree 
from left to right until an entire rank 
is full, then the next rank is started. 


An example tree is shown in Fig- 
ure 1, below. Note that this tree is not 
strictly ordered in the normal way. 
That is, rule 1 doesn’t require that the 
tree be sorted, only that the children 
are smaller than the parent. You 
could exchange the subtrees rooted 
at 1 and 2 without violating rule 1. 
This ordering guarantees that the 
root node of the entire tree always 
holds the largest element, however. 
Notice that an insert operation is 
harder than normal because of rules 
2 and 3. An 11th node must be insert- 
ed as the right child of node 4 anda 
12th node as the left child of node 5. 
If you do this, however, rule 1 may 
be violated by the newly inserted 
node. To avoid this last problem, you 
have to adjust the contents of the 
nodes at every insertion (a process 


called reheaping). For example, if 
you insert a new node having the 
value k as the right child of node 4, 
you'll have to shuffle things around 
because of rule 1. 

The reheaping process is illustrat- 
ed in Figure 2, page 106. You reheap 
from the bottom up with an inser- 
tion. Because k is greater than h, the 
contents of nodes 10 and 4 must be 
swapped. You then go up one level to 
node 4 and compare its key to its par- 
ent’s. Here k is still greater than i, so 
you swap again, moving the k to 
node 1. Finally, nodes 0 and 1 must be 
swapped as well, moving k to the 
root position. 

Because of rules 2 and 3, it’s conve- 
nient to represent the tree as an ar- 
ray in which the element at node N 
has children at nodes 2N+1 and 
2N +2. For example, the node at ar- 
ray(0] has children at array(1] and ar- 
ray(2], the node at array([2) has chil- 
dren at array/5] and array/6], and so 
forth. This array representation, usu- 
ally called a heap, has both advan- 
tages and disadvantages. The main 





For an ascending queue 
(the smallest object is 
dequeued first): 


(*cmp)(p1,p2) 
if: returns: 


*p1 > *p2 negative number 
*¥p1==*p2 0 
*p1< *p2 positive number 


For a descending queue 
(the largest object is 
dequeued first): 


(*cmp) (p1,p2) 


if: returns: 

*p1 > *p2 positive number 
*p1 == *p2 0 

*p1 < *p2 _ negative number 





Table 1: Values returned from the comparison function 





Figure 1: A priority queue represented as a binary tree 
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Chol, 
(continued from page 105) 


ee a. before reheaping 

problems are that the maximum 0 

number of elements must be known ye 

at create time, and it’s difficult to de- 

lete an interior node at random or to 

merge two queues. Nonetheless, the | 2 

heap representation is the most effi- Et) oo 

cient for the overwhelming majority 

of applications—in which the only 5 4 5 6 

operations are insert and delete. 7. 
The tree from Figure 1 is shown as @ a) a 

an array in Figure 3, right. To insert a 

node in the tree, you make the array 7 8 9 10 

one element larger, put the new Ck } 

node in the rightmost element, and =) cS) Cc ) 

then reheap from the bottom up 

(right to left). The largest node is al- 

ways at array/0), just as it was always 

at the root position in the tree. Delete 

the largest element by copying the b. after reheaping 

rightmost node in the tree (array/9) 0 

in Figure 3) into array/0), making the fe 


array one element smaller, and then 
reheaping from the top down (left to 


right). 1 fi 
The heap representation is a rea- Ey > 


sonably efficient one. Unlike a nor- 
mal binary tree, you never have to eC 4 5 6B 
search for the insertion point in the 

tree (it's always at the far right). Simi- (a) rg (b ) © 
larly, the largest element is always in 

a fixed place (at the far left). Though 7 8 Q 10 

there's a certain amount of copying 

that has to be done during a reheap, (a) a (c ) ED 

no more than log,N copies need ever 
be done. Nonetheless, it’s worth- 


while to make the queue elements | Figure 2: Inserting a new node 
themselves small. Use an array of 


pointers to structures rather than an Le 
array of structures. This way you 


have to swap only two pointers— ie 


rather than two complete struc- ae | 
| 
a 
| © 
| | 
: | 
| 
| | 
| | 
l 
1 
| 
| 
| 

















a sorted list, there’s no point in doing 


| 
| 
| 
a series of insert operations to create | i 
| 
| 
| 





heap (though a heap is not necessari- 
ly a sorted array). This property ex- a> 
the heap—you can just pass the ar- 
| 
| 
internally by the following struc- | | ! 
ture: : : 
typedef struct 
{ Do 2a 6 6G UG 


tures—when you reheap. 
| 
| 
| 
plains the initheap argument to | 
ae oo 
I 
| 
ray directly to pg_create( ). | 
| 
c 
9 
int (*cmp) ); Bi a 


Note that a sorted array is a valid 
f is alread ! 
pq—create( ). If your input is already , 
: | 
| | | 
Se 
The priority queue is represented | : | 
| 
int “swap) ); Figure 3: A priority queue represented as an array 
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C CODE FOR THE PC 


source code, of course 


C Source Code 


FSP (screen manager) pe $400 
GraphiC 3.0 (high-resolution, DISSPLA-style seieatibe lots j in ele: & lado $300 
Essential C Utility Library (400 useful C functions) $160 
Essential Communications Library (C functions for RS-232-based communication systems) . $160 
Panache C Program Generator (screen-based database management programs) $150 
B-Tree Library & ISAM Driver (file system utilities by st ne $100 
The Profiler (program execution profile tool) ers $100 
QC88 C compiler (ASM output, small model, no longs, fioate or bit fields, 80+ funetibr library) $90 
CBTree (B+tree ISAM driver, multiple variable-length keys) $80 
ME (programmer’s editor with C-like macro language) . $75 
Wendin PCNX Operating System Shell $75 
Wendin PCVMS Operating System Shell . $75 
Wendin Operating System Construction Kit ore. BS MBS, ‘coat eee $75 
Entelekon C Function Library (screen, graphics, keyboard, string, printer, etc.) . . $70 
Entelekon Power Windows (menus, overlays, messages, alarms, file handling, etc.) . $70 
EZ_ASM (assembly language macros bridging C and MASM) . . $60 
Make (macros, all languages, built-in rules) $50 
Coder’s Prolog (inference engine for use with C programs) egy RO eg A $45 
PC/MPxX (light-weight process manager; includes preemption and cooroutine packages) $45 
Biggerstaff’s System Tools (multi-tasking window manager kit) . $40 
TELE Kernel (Ken Berry’s multi-tasking kernel) $30 
TELE Windows (Ken Berry’s window package) . . $30 
Clisp (Lisp interpreter with extensive internals documentation) . si $30 
Translate Rules to C (YACC-like function generator for rule-based systems) $30 
6-Pack of Editors (six public domain editors for use, study & hacking) . $30 
ICON (string and list processing language, Version 6 and natin ‘ $25 
LEX (lexical analyzer generator) pe gn Gen RL $25 
Bison & PREP (YACC workalike parser Lae & eicbite: grammar ce $25 
C Compiler Torture Test (checks a C compiler against K & R) $20 
A68 (68000 cross-assembler) $20 
Small-C (C subset compiler for 8080 aii 8088) $20 
tiny-c (C subsubset interpreter including the tiny-c shell) $20 
Xlisp 1.5a (Lisp interpreter including tiny-Prolog in Lisp) $20 
List-Pac (C functions for lists, stacks, and queues) $20 
XLT Macro Processor (general purpose text translator) ri ae see Se $15 
C Tools (exception macros, wc, pp, roff, grep, printf, hash, declare, banner, Pascal-to-C) oy $15 
Data 

Webster’s Second Dictionary (234,932 words) . $60 
U. S. Atlas (29,000 cities with retrieval program) ; : $40 
KST Fonts (13,200 characters in 139 mixed fonts: specify TEX or stasios caren) $30 
The World Digitized (100,000 longitude/latitude points) . $30 
NBS Hershey Fonts (1,377 stroke characters in 14 fonts) $15 
U. S. Map (15,701 points) $15 

The Austin Code Works 
11100 Leafwood Lane 
Austin, Texas 78750-3409 
(512) 258-0785 

Free shipping on prepaid orders MasterCard/VISA 
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C CHEST 
(continued from page 106 ) 


int itemsize; 
int nitems; 
int maxitem; 
char *bottom; 
char *heap; 


PQ; 


The comparison and swap function 
pointers are remembered in cmp 
and swap. Itemsize is the size in bytes 
of one element of the heap, nitems is 
the number of elements currently in 
the heap, and maxitem is the maxi- 
mum number of items that the heap 
can hold. The heap field points at the 
array itself, and bottom points at the 





| Standard #include Files 
_ At present I’m using the Microsoft C 
_compiler, Version 4.0, for two rea- 
_ sons—the first is the CodeView de- 
bugger, and the second is the degree 
of Unix compatibility. (The MS-DOS 
compiler is the Xenix compiler; 
there's literally no difference.) I 
spend a lot of time bouncing around 
between the Unix system at Berkeley 
and my own PC, so having compati- 
ble compilers is essential. Using the 
Microsoft compiler, I’ve never had to 
modify a program written under one 
system and ported to the other unless 
that program did some sort of very- 
low-level communication with the 
operating system (such as talk direct- 
ly to the BIOS), 

There's another advantage to Unix 
compatibility, and that’s standardiza- 
tion. Although the emerging ANSI 
standard finally incorporates the I/O 
library into the language—at least in 
terms of regularizing the function 
names and argument-passing con- 
ventions—there aren't nearly as 
many ANSI functions as there are 
Unix functions, so Unix must contin- 
ue to provide a de facto standard. 
You don't really know C unless you 
know the Unix library. Your code 
just won't be portable because you 
don't know what's standard and 
what isn’t. Learning your own com- 
piler’s library is a necessary but not 
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most recently added element. It will 
point at heap/-1) if the heap is empty. 
Note that you could derive nitems by 
subtracting bottom from heap but it’s 
more convenient to keep it as a sepa- 
rate number. 

The pq—create( ) function on lines 
128-188 of Listing One creates a PO 
structure and initializes the various 
fields. If initheap is not NULL, space 
for the PO structure alone is allocated 
(on line 167) and heap is made to point 
to the specified array. The various 
other fields are adjusted so that the 
heap is full. If initheap is NULL, space 
for both the PO structure and the 
heap itself is allocated (on line 176), 
and an empty heap is initialized. Fi- 
nally, a pointer to the PO structure is 
returned on line 188. 


Flotsam and Jetsam 


sufficient condition for knowing C. 
As a consequence, it’s very much to 
your advantage to pick up a copy of 
the Unix System V documentation 
and read through it. Hitherto, these 
manuals have been hard to come by. 
All that you could get were the now- 
out-of-date Version 7 manuals (the 
big blue and green paperbacks). 
AT&T, however, has just published 
the manuals for Release 2.0 of Unix 
System V. The complete five-volume 
set is overkill unless you're really us- 
ing Unix. Nonetheless, Volume 2— 
System Calls and Library Routines— 
should be in every C programmer's 
library. It’s available by mail order 
(for $29.95) from the Computer Liter- 
acy bookshop in San Jose, California, 
and is well worth the money. (Com- 
puter Literacy's phone number is 
[408] 435-1118. The five-volume set is 
Steven V. Earhart’s Unix Program- 
mers Manual [New York: Holt, Rine- 
hart & Winston, 1986].) 

Because I develop all the programs 
that appear in C Chest in the Unix en- 
vironment (the Microsoft environ- 
ment is the Unix environment for all 
intents and purposes), it seems 
worthwhile to list the various 4in- 
clude files that I use in C Chest. These 
are usually presented without com- 
ment because they’re both standard 
and well documented elsewhere. If 
your compiler doesn’t have one of 


The insert and delete operations 
are performed in pg_ins( ) (lines 193- 
219) and pq_del( ) (lines 224-258) us- 
ing the method described earlier. Be- 
cause the compiler doesn’t know the 
size of a heap element at compile 
time, items must be copied with 
memcpy( ) calls at run time. The re- 
heaping is deferred to two static 
workhorse _ functions—reheap_— 
down( ) and reheap_up( )—declared 
at the top of the file. Reheap_down( ) 
(lines 51-89) starts at the root node 
(heap[0)) and works down the tree. It 
selects the larger of the two children 
on lines 72-81 and then swaps the 
root element and the larger child 
(and moves down the tree) if neces- 
sary. The reheap process stops as 
soon as the root is larger than both 


these files, then you don’t need to #in- 
clude it in your program. because 
none of the library functions will re- 
quire any of the things included 
within the file. By the same token, if 
your compiler doesn’t have one of 
these files, then it’s not Unix compati- 
ble, in spite of what the advertise- 
ments may say. 

It's impossible for me to describe 
how to port programs to every non- 
standard compiler on the market. 
You ll have to learn how to do this 
yourself. You'll need to know your 
own compiler’s library pretty well 
and have at least a working knowl- 
edge of the Unix equivalents to vari- 
ous library functions. Do your home- 
work. I will say, while on the subject, 
that the Lattice compiler is one of 
those that falsely claims Unix com- 
patibility—for example, it doesn’t 
support a Unix-compatible stat( ) 
function, it uses the name fork( ) in 
incorrect ways, and it doesn’t have a 
Unix-compatible #include file system. 
These inconsistencies are surprising 
because Lattice seems to have gone to 
a lot of trouble to add Unix-compati- 
ble functions to its library in the last 
release. Unfortunately, the degree of 
Unix compatibility that is indeed pre- 
sent lures you into a false sense of se- 
curity. 

The various #include files that 
youre likely to see in a C Chest pro- 
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children. Note that an ascending 
queue (one where the root holds the 
smallest rather than the largest ele- 
ment) can be created by modifying 
the comparison function, without 
touching the reheap code at all. 

Reheap_up( ) (lines 95-124) reheaps 
in the other direction. It starts with 
the most recently entered item 
(which is at heap[nitems-1]) and 
works up the tree to the root. The 
routine is simpler than reheap 
_down( ) because you don't have to 
find the larger sibling—a child has 
only one parent. Again, the reheap- 
ing processes stops as soon as a par- 
ent node that is larger than the cur- 
rent child node is detected. 

The remainder of the file is com- 
piled only if MAIN is #defined. In this 


gram are listed below. Most of these 
are both Unix and Microsoft compati- 
ble, but some are used just in the DOS 
compiler. Note that this isn’t a list of 
all the Unix/Microsoft #include 
files—just the ones I’m likely to use. 


ctype.h—contains various text pro- 
cessing macros: isalpha, isupper, ts- 
lower, isdigit, isxdigit, isspace, 
ispunct, isalnum, isprint, isgraph, 
iscntrl, isascii, toupper, tolower, and 
toascil. 


dos.h—not Unix compatible. Con- 
tains #defines for the MS-DOS inter- 
face functions: bdos, dosexterr, int86, 
int86x, intdos, and segread. 


errno.h—#defines for the various er- 
ror condition codes returned from 
the I/O library: EZERO, EPERM, E- 
NOENT, ESRCH, EINTR, EIO, ENXIO, 
E2BIG, ENOEXEC, EBADF, ECHILD, E- 
AGAIN, ENOMEM, EACCES, EFAULT, 
ENOTBLK, EBUSY, EEXIST, EXDEV, E- 
NODEV, ENOTDIR, EISDIR, EINVAL, E- 
NFILE, EMFILE, ENOTTY, ETXTBSY, E- 
FBIG, ENOSPC, ESPIPE, EROFS, EMLINK, 
EPIPE, EDOM, ERANGE, EUCLEAN, and 
EDEADLOCK. 


fentl.h—contains definitions needed 
to use the unbuffered I/O function 
open( ): O-RDONLY, O_WRONLY, 
O_RDWR, O_APPEND, O_CREAT, 
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case, a stand-alone test program is 
compiled. This program creates a 
ten-element-long heap of character 
pointers and then adds or deletes 
strings from the heap according to 
commands entered from the key- 
board. Type i<string> to insert 
<string> into the heap, d to delete 
an item, and gq to exit from the pro- 
gram. The priority queue is created 
either on lines 359 or 361, depending 
on the value of Makequeue. If Make- 
gueue is set, an empty queue is creat- 
ed; otherwise, a preinitialized queue 
(using the array declared on lines 
353-356) is created. If Ascending is 
true, the queue is an ascending prior- 
ity queue (items will be removed in 
ascending order); otherwise, it’s de- 
scending. There’s no explicit code to 


O_TRUNC, O_EXCL, O_TEXT, and 
O_BINARY. 


io.h—contains function declarations 
for access, chmod, chsize, close, 
creat, dup, dup2, eof, filelength, isatty, 
locking, lseek, mktemp, open, read, re- 
name, setmode, sopen, tell, umask, un- 
link, and write. 


math.h—contains definitions for abs, 
acos, asin, atan, atan2, atof, bessel, 
cabs, ceil, cos, cosh, exp, fabs, floor, 
fimod, frexp, hypot, labs, Idexp, log, 
log10, matherr, modf, pow, sin, sinh, 
sqrt, tan, and tanh. 


process.h—contains definitions for 
various process-control functions: 
abort, execl, execle, execlp, execlpe, 
execv, execve, execvp, execvpe, exit, 
_exit, getpid, spawnl, spawnle, 
spawnlp, spawnilpe,  spawnv, 
spawnve, spawnvp, spawnvpe, and 
system. 


signal.h—contains definitions need- 
ed by the signal( ) subroutine. Some 
common definitions are: SIGINT, 
SIGFPE, SIG_DFL, and SIG_IGN. 


stdarg.h—contains definitions need- 
ed to write an ANSI-compatible sub- 
routine with a variable number of 
arguments (see varargs.h). The fol- 
lowing are defined: va_list, va_start, 








modify Makequeue and Ascending (I 
just modified them with CodeView, 
the Microsoft debugger, as I was de- 
bugging). 

New items are inserted into the 
queue on line 386 and deleted on line 
395. The comparison and swap func- 
tions are declared on lines 289-313. 
Finally, the strsave( ) function, used 
on line 389, is shown in Listing Two, 
page 96. Because this is just a small 
test program, I’m ignoring the error 
return from _— strsave( )—you 
shouldn't do this in a real applica- 
tion, of course. 


FREO.C 

The priority queue routines are of 
general utility. You need a few spe- 
cial-purpose utilities to make Huff- 








va_arg, and va_end. 


stdio.h—contains #defines and so on 
for all the buffered I/O functions (f- 
open, fprintf, and so forth). Stdin, 
stdout, stderr, FILE, EOF, and NULL are 
all defined here. Note that several 
psuedofunctions that you're used to 
thinking of as subroutines (getchar, 
putchar, getc, putc, feof, ferror, and 
fileno) are actually macros that are 
#defined in stdio.h. If you forget to 
#include this file, you'll get error mes- 
sages from the linker (such as “Unre- 
solved external:_putchar’’). Putchar 
is a macro that ultimately evaluates 
to a call to a system-level subroutine 
usually called either —flsbuf or 
_flushbuf.: 


sys/stat.h—contains definitions for 
the system-status subroutines stat( ) 
and fstat( ). 


sys/types.h—also required by stat( ) 
and fstat( ). Various time functions 
(such as utime( )) use the information 
declared here as well. 


varargs.h—Definitions for the vari- 
able-number-of-argument mecha- 
nism used by Unix System V (see 
stdarg.h). The following are defined 
here: va_list, va_dcl, va_list, va—a- 
list, va_start, va_arg, and va_end. & 
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COREST 
(continued from page 109) 


man trees, however. One of these is 
the FREQ.C program shown in Listing 
Three, page 96. FREO,.EXE is a stand- 
alone program that takes as input a 
list of files and outputs a table show- 
ing the frequency of occurrence of 
every 8-bit pattern in these files (I'll 
call these patterns “characters” from 
here on). The output table is sorted in 
ascending order of frequency (least 
frequently occurring characters to- 
ward the top). The output format 
uses one character per line with 
three numbers on each line—the 
leftmost number is the value of the 
character itself (in hex); the next two 
numbers are character frequencies, 
output in two forms. The first form is 
the probability of occurrence of ev- 
ery character—the number of times 
that that character occurred in the 
input divided by the total number of 
input characters. The second form is 
a normalized character count in 
which the least frequently occurring 
nonzero pattern has the value of 1— 
it’s the character count divided by 
the count associated with the least 
frequently occurring character. 

The table itself is declared on lines 
13-21. It is a 256-element array of 
ITEMs, indexed by character value. 
One field of the ITEM structure holds 
a count that is incremented every 
time the associated character is en- 
countered in the input. The other 





field holds the character value itself. 
You can derive this from the index, 
of course, but putting it into an ITEM 
lets you sort the array by frequency 
of occurrence without loosing the 
value. 

The array is loaded with the for 
loop on lines 58-74. The count associ- 
ated with every byte is incremented 
on line 69. The counts are all initial- 
ized to 0 by default because global- 
level objects are always initialized to 
0 unless there’s an explicit initializer 
present as part of the declaration. 
The next for loop, on lines 83-93, ini- 
tializes the value fields of the array 
and at the same time finds the ele- 
ment having the smallest nonzero 
value. (I’m getting the largest value, 
too, but am not using it for anything 
at present.) The array is sorted with 
the ssort( ) call on line 105. This sub- 
routine works just like the Unix-com- 
patible gsort( ) does, but it does a 
shell sort. See the comment on lines 
95-102 for more information. The 
comparison function used by ssort( ) 
is declared on lines 25-39. Finally, 
the table is printed (and the probabil- 
ities and so forth are computed) in 
the loop on lines 115-126. The sum of 
the probabilities is printed to stderr 
on line 126 just to make sure that ev- 
erything worked correctly. It should 
always be 1.00. 


Availability 
All the source code for articles in this 
issue is available on a single disk. To 














order, send $14.95 to Dr. Dobb’s Jour- 
nal, 501 Galveston Dr., Redwood City, 
CA 94063 or call (415) 366-3600 ext. 
216. Please specify the issue number 
and. format (MS-DOS, Macintosh, 
Kaypro). 
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Ever Program On A Silver Platter?? 


How much would you expect to pay for a 32 bit MC 68000 computer that’s a mainframe condensed down into a 
keyboard? How about $389.00!!?? If it makes you feel any better simply add a zero to the price when you order! 
But that’s actually our price!!! The most powerful computer money can ever buy is now the most inexpensive com- 
puter money can buy!!! So don’t buy the name! Buy the power!! The power is not in the name! 


If you had the opportunity to work amongst Machine Code ROM Designers, VAX & UNIX wizards in a 
research laboratory, designing an MC 68000 based computer that’s 2nd to none. . . 


What would you come up with?? And what would you call it?? 


Well It’s Already Been Done!! 
They Called It The QL For The Quantum Leap It Is!! 


Absolutely a Quantum Leap beyond what you know & use - and it’s truly like Programming on a Silver Platter!! 


Se ee ee ee ee ee 
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The QL Desktop Minicomputer: Designed by SRL Labs, manufactured by Samsung. An absolute Quantum Leap 
beyond all the rest! The phenomenal open architecture QDOS: with Virtual Memory RAM, Multitasking Job Con- 
trol, Multiuser Networking. It’ll Cache Files into unused Memory and create/ delete Directories Automatically! Even 
allows File Names up to 36 characters long! Everything is built into ROM here: QDOS, Networking, Windowing, & 
32 Bit SuperBasic, all in a totally concurrent non-destructive environment. Unlimited quantities & lengths allowed 
with: Variables, Program Lines, CONsoles & Buffers. Dynamic non-destructive virtual RAM Disking & Networking 
buffers too! Even a System Variables Brain Page Screen! Built-in DCE & DTE Serial Ports. 


Language Environments: 

Metacomco’s ‘‘C’’, LISP, BCPL, 68000 Assembler, APL, Development Kits. Prospero’s Pro Pascal & Pro Fortran 
77. Digital Precision’s Forth-83. QJUMP’s 65C02 or 8088 Cross Assembly ROMs. Everything generates native 68000 
Compiled Code. ROM Firmware & Software Package is now available which will even bring it up in CPM! 


Imagine working with a 32 bit SuperBasic that’s structured like Turbo Pascal, powered beyond PIC Basic, in an in- 
terpretor always present with QDOS, all concurrently running in a built-in UNIX-like multitasking job controlled en- 
vironment with access to 360 fully channeled windows, devices & files by EACH job! 3 Major Compilers already ex- 
ist for the SuperBasic source alone! TURBO, SUPERCHARGE, QLIBERATOR! The compiled SuperBasic code or 
ANY other language will multitask and control with QDOS and SuperBasic. The list of ALL the Superior Features 
would fill this entire publication! 


The QL comes bundled WITH PSION Integrated Word Processor, Spreadsheet, Database and Presentation Graphics 
Programs. PLUS: Our FREEWARE Demos & Utilities with all purchases! Plus $12 Shipping and Handling 


Call: (201) 328-8846 rai Sto2so006 
QLine BBS: 328-2919 Ton, Compuserve ID # 76625,2214 
Quantum Computing, Box 1280, Dover, NJ 07801 
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Resources 

Ward, Robert. Debugging C. India- 
napolis, Ind.: Que Corp., 1986. 350 
pages with index. ISBN 0-88022-261-1. 

Finding this book among the flot- 
sam and jetsam of computer publish- 
ing is like finding a $100 bill in the 
street. The art, craft, and/or skill of 
effective debugging is a topic that has 
rarely been discussed in any useful 
way in the computer literature. The 
debugging chapters in manuals or 
textbooks are usually focused on de- 
fensive strategies and the design of 
test data, rather than on the stabiliza- 
tion, isolation, localization, and cor- 
rection of bugs once detected. To 
new programmers, who have not 
yet developed a methodical ap- 
proach to debugging, the process 
seems a little magical and their own 
approach is frequently haphazard 
and based largely on luck. Although 
native talent is an element of effec- 
tive debugging, as it is of effective 
programming, a far larger compo- 
nent is simply the accumulated expe- 
rience and the strategies learned by 
finding and fixing many different 
types of bugs in the past. 

In his introduction, Mr. Ward 
writes: “Until I started teaching, I as- 
sumed that good debugging skills 
were a natural outgrowth of good 
design skills. Not so. A bright student 
may intuitively decompose a_ prob- 
lem into beautifully coherent, cohe- 
sive, functional modules. That same 
student may not be able to find the 





by Ray Duncan 





most trivial syntax errors, let alone 
discover subtle runtime bugs. Equal- 
ly bright students turn in working 
designs that literally defy analysis. 
While I don’t believe that we learn 
debugging by studying design, I do 
believe that we can learn efficient 
debugging. 

“We can developa methodological 
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model that directs our efforts toward 
more productive searches. We can 
acquire heuristic knowledge (a kind 
of folk wisdom) about where to look 
first. We can be deliberately sensitive 
to the different variables and observ- 
able phenomena in different envi- 
ronments. We can become expert at 
selecting and using appropriate tools. 
And, through critical analysis of our 
attempts to find ‘worthy’ bugs, we 
can learn from our own mistakes.”’ 
The first chapters of Debugging C 
concentrate on the debugging pro- 
cess itself, with emphasis on recogni- 
tion of bugs (lexical, syntactic, execu- 
tion, and intent errors), their 
localization (using the principles of 
lexical, temporal, or referential prox- 
imity), a methodical approach, and 
good record keeping. Later chapters 
discuss the localization of compile- 
time errors and tracing methods. 
The last chapters of the book are par- 
ticularly C-oriented, with excellent 
discussions of the special problems of 
C programmers: bugs due to data 
type mismatches, operator prece- 
dence or misuse, and uninitialized or 
out-of-range pointers. Here is where 
the author gently presents many use- 


ful tips that are common sense to vet-. 


eran C coders, usually acquired 
through painful experience. 
Example: “C, unlike Pascal and Ba- 
sic, doesn't give an initial value to lo- 
cal variables when it creates 
them .... Most stack frames are rela- 
tively small (less than 20 bytes) but 
every stack frame has a frame point- 
er (an address higher in the stack) 
and a return address (an address in 
the code area). Because uninitialized 





16-BIT SOFTWARE TOOLBOX 


pointers will use these obsolete ad- 
dresses which occur frequently in 
reused areas of the stack, the pro- 
grammer Can expect 10 to 30 percent 
of the uninitialized pointers to refer- 
ence code or areas of the stack.’’ Simi- 
larly, Mr. Ward explains, with stack 
traces and memory dumps, why 
common errors such as initializing 
too many bytes of an automatic char- 
acter array result in bizarre transfers 
of control or crashes “between lines’’ 
of source code. 

The last few chapters describe the 
use of some common machine-level 
and symbolic debuggers, interpret- 
ers, and integrated development en- 
vironments. The book’s appendices 
include the C source code for a de- 
bugging subsystem that can be 
linked to a C application. The debug- 
ger provides tracing at several layers 
of granularity, stack frame displays, 
memory dumps, and watch points 
(periodic checks to see if a certain 
variable has been altered or has tak- 
en on a specified value). 

The author couples a direct, lucid, 
and informal style of writing with a 
depth of understanding and highly 
structured presentation that are un- 
usually effective. In spite of the title, 
most of the book has broad applica- 
bility and would be perfectly com- 
prehensible to anyone with even a 
passing acquaintance with the C 
language. 


Hyman, Michael I. Memory Resident 
Utilities, Interrupts, and Disk Manage- 
ment with MS and PC DOS. Portland, 
Oreg.: Management Information 
Source, 1986. 373 pages with index. 
ISBN 0-943518-73-3. 

This book, with the short catchy ti- 
tle, is anything but self-effacing. The 
introduction reads: “You will find 
this book to be the ultimate reference 
guide to getting the most out of your 
machine. As you read it, you'll learn 
how to use and enhance DOS to ex- 
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16-BIT 
(continued from page 112) 


plore your computer and make 


mighty programs. Powerful exam-. 


ples will lead you along the way and 
provide models for later refer- 
ence....’ Such hype is common- 
place from publishers’ PR depart- 
ments, but it’s a litthe more unusual 
coming straight from the author’s 
pen. Several paragraphs farther on, 
you find the admonition ‘‘The letter 
‘l’ and the number ‘1’ are represent- 
ed in the program code by the same 
character. In no case is the letter ‘I’ 
used as a variable name. This should 
eliminate any confusion.” If there’s 
anything I'm already confused about 
at this point, it’s why the publisher of 
an “ultimate” reference book would 
allow it out of the door containing 
program listings wherein the nu- 
meral 7 and the letter / cannot be dis- 
tinguished. But no matter, let’s see 
what the rest of the book has to offer. 

Chapters 1 through 8 discuss the 
boot sector, file allocation table, di- 
rectory structure, and file area of MS- 
DOS disks. Incredibly tortuous Turbo 
Pascal source code for a disk peeker/ 
patcher named Explorer is devel- 
oped as part of the exposition. Each 
chapter ends with a summary of 
sorts entitled ‘‘Key Programming 
Points.” Here are the Key Program- 
ming Points listed at the end of Chap- 
ter 4: ‘Sectors are the smallest orga- 
nizational unit. They contain 512 
bytes. You can find interesting mes- 
sages and modify programs by edit- 
ing sectors. Explorer uses arrow keys 
to move the cursor.”’ 

The following few chapters dis- 
cuss the partition table, ‘“‘un-erasing”’ 
files, and a program that patches 
COMMAND.COM to change the names 
of MS-DOS internal commands (real 
useful!). Next the author covers input 
and output with the mouse, key- 
board, and screen using IBM PC ROM 
BIOS drivers; an overview of file and 
record I/O; directory searching; and 
memory management. Nothing new 
here. 

Finally, in Chapters 28 through 38, 
you get to the apparent reason for 
the book’s existence: the problems 
and pitfalls of programming Termi- 
nate and Stay Resident (TSR) utilities. 
This part of the book contains much 
useful information, poorly organized 
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and presented, about chaining onto 
interrupts, putting up and taking 
down pop-up displays, monitoring 
the keyboard for hot keys, and the 
like. If this part of the book were 
properly structured and edited, it 
would make a decent magazine arti- 
cle, but the book as a whole is a poor 
investment. 


Norton, Peter; and Socha, John. Peter 
Norton’s Assembly Language Book 
for the IBM PC. New York: Brady/ 
Prentice-Hall, 1986. 413 pages with 
index. ISBN 0-13-661901-0. 

This book is Yet Another Assem- 
bly-Language Tutorial of average 
quality. It is built around the design 
and stepwise enhancement of a sim- 
ple disk sector modification utility 
called DSKPATCH, discussing in pass- 
ing some issues of processing key- 
board input and updating screen dis- 
plays using the IBM PC ROM BIOS video 
driver. 

This book is mainly notable as a 
demonstration of the recent trend to- 
ward commodity marketing of com- 
puters and related products. As the 
competition in the wonderland of sil- 
icon has become more intense, we 
have seen the adoption of marketing 
tactics that were previously the 
province of car, appliance, and ap- 
parel manufacturers, such as 
scratch-off sweepstake tickets (Bor- 
land); cash rebates (Apple); “free gifts 
with purchase’”’ (with every dBASE III 
Plus, get a Cross writing instrument 
free!); mystical mumbo jumbo such 
as Robert Carr, Wayne Ratliff, and 
Jonathan Sachs being touted as 
“Chief Scientists” of their respective 
companies; and last but not least, ce- 
lebrity endorsements. 

Back in 1983-1984, while John So- 
cha was a contributing editor for Sof- 
talk/PC, he wrote a book called As- 
sembly Language Safari for the IBM 
PC: First Explorations (Bowie, Md.: 
Brady, 1984. ISBN 0-89303-321-9). For 
various reasons, including rather 
poor production values in the book 
itself and massive financial problems 
at the Brady corporate level, the 
book received little attention and 
went out of print shortly thereafter. 
Nowadays, John Socha works for Pe- 
ter Norton Inc. in Santa Monica, Cali- 
fornia, and is the author of the pro- 
gram sold as the Norton Commander. 
When Peter Norton’s Assembly Lan- 


guage Book appeared, with Peter 
Norton and John Socha listed as coau- 
thors, I thought it would be instruc- 
tive to make a page-by-page compari- 
son of John Socha’s old book with the 
new one. 

A fairly generous assessment of the 
two books is that there are approxi- 
mately 17 pages of new material in 
the ‘“new’”’ Norton/Socha version, 
scattered among the following top- 
ics: the Proceed command of DEBUG, 
a MASM program skeleton, MAKE 
files, SYMDEB, linker maps, .COM vs. 
.EXE programs, the ASSUME directive, 
segment overrides, and phase errors. 
The remainders of the two books are 
identical, except for some redrawn 
figures, the addition of some titles 
and divider pages, and some minor 
changes in wording that would have 
been introduced by any competent 
editor. There are also three new ap- 
pendices that are mostly filler from 
other sources, such as MASM error 
messages and character tables. In 
other words, the substance of Mr. 
Norton's contribution to this book 
seems to be his picture on the cover, 
his billing as a coauthor, and the run- 
ning head ‘Peter Norton’s Assembly 
Language Book” on the top of each 
right-hand page. 

Some might argue that the kind of 
misrepresentation involved here 
hurts no one and is therefore of no 
consequence. To be sure, the book's 
purchasers, although they might 
have been misled about the creative 
origins of the book, have still bought 
a reasonably useful introduction to 
assembly language. The three princi- 
pals—John Socha, Peter Norton, and 
Brady—are undoubtedly happy be- 
cause their ploy has caused the book 
to vault onto the computer best-seller 
lists—which means everyone in- 
volved has made some money. And 
last but not least, Peter Norton’s rec- 
ognition as an expert on all matters 
concerning the IBM PC has been 
magnified. 


A Poor Man’s MAKE 

J. F. Philippe Marchand, of Webster, 
New York, sent in the programming 
goody of the month—a short pro- 
gram called CHKDATE.C. This pro- 
gram compares the date of two files 
and returns an “error level’’ code 
that can be tested within a batch file. 
For those people who are not fortu- 
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nate enough to have one of the com- 
mercial MAKE utilities (which are 
bundled with many of the compilers 
and assemblers being sold today), 
CHKDATE can help to automate the 
process of compiling and linking the 
various modules of an application 
program. Example 1, below, contains 
the C source code for the CHKDATE 
program, and Example 2, below, 
contains an example batch file that 
demonstrates the use of CHKDATE. 


MS-DOS Programming Tips 
George Smith, of Lilburn, Georgia, 
writes: “I have run across one puz- 
zling problem [in MS-DOS 3.0]. DOS 
function 0eh, which makes a speci- 
fied drive the current drive, has al- 


#include <stdio.h> 
#include <sys types.h> 


ways reported a reliable count of the 
number of drives on the system in 
register al. Under DOS 3.0 and later, 
though, the value returned in al is al- 
ways at least 5, even if you happen to 
be running short-handed with fewer 
drives. 

“T have no explanation, though I do 
have a solution in the form of func- 
tion DriveCnt [Example 3, below]. 
The logic behind DriveCnt is simple. 
It takes the value al reports from 
function 0eh and passes it as a drive 
code to function 47h (Get Current Di- 
rectory), which will set the carry flag 
if the drive code is invalid. It repeats 
calls to function 47h with successive- 
ly lower drive 
codes until DOS 


Purpose: 


finds one it likes.” 

Although George has been kind 
enough to send in the routine Drive- 
Cnt for the edification of DDJ readers, 
he sells a package called Boosters for 
Turbo Pascal programmers that in- 
cludes this subroutine and 77 others, 
a screen generator, some 40 example 
programs, and a 93-page manual. 
The Boosters package costs $40 and 
can be ordered direct from George 
Smith at 609 Candlewick Lane, Lil- 
burn, GA 30247; (404) 923-6879. 


DDJ 
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FUNCTION DriveCnt : Integer; 
(C) 1986 George F. Smith & Company 


#include <sys stat.h> 


main(argc,argv) 
int argc; 
char *argv[]; 
{ struct stat buf1, buf2; 
int result,k; 
if ( arge — 3) | 
printf(”chkdate: usage chkdate f1f2..fn\n"); 


printt(” will returnerrorlevel 1\n"); 
princi” if £1 older than f2..fn\n"); 
printf(’ Or if f1 _. fn don't exist. \n")- 
exit(1); 


Returns number of logical drives on host 
computer - DOS 2.0 and above. 


Sample Usage (Turbo Pascal): 
Writeln('Number of drives is ',DriveCnt); 


Suggested processing sequence: 
MASM DriveCnt,,, 
Link DriveCnt 
Exe2Bin DriveCnt DriveCnt.com 
C2I DriveCnt.com >DriveCnt.inl 


(C2I utility converts .com files to Turbo Pascal 


™e Se Se Se Se Ss Me UF Ue le Fe le le le le Fe le Re fe 


inline code. See DDJ, 10/86, pg. 90 )p 


: 


? 
if ¢ stat( argvi!], &buf!l) != 0 j)exit( 1): 


code segment 
for ( k—2- k<argqe: kit ) | assume cs:code 
if ( stat( argv[k], &buf2)!=—0) exit(1):; 
if ( buf1.st_atime < buf2.st_atime ) exit(1); DriveCnt: 
3 push bp standard 
exit(0); mov bp,sp subroutine 
\ push ds overhead 


sub sp, 64 
Mov si,sp 
mov ah,19h 
int 2ih 
chkdate main.obj main.c mov dl,al 
IF ERRORLEVEL 1 goto :compilel mov ah, O0eh 


goto :next! int 2ih 


create scratch area, 

save in si for 47h call 

get default drive 

returns drive code in al 
move code to dl 

set default drive to itself 
On return, al=# drives 


Example 1: Phil Marchand’s CHKDATE.C program 


=e ea Se Se Se Se Se Fe Se Fe 


If DOS 3.0 or above, number of drives in al will 
be minimum of 5. Will repeat calls to function 47h 
until a valid drive code is obtained. — 


:compilel 
msc main,main; 


=e Se Se Fe Ne 


snext 1 mov dil,al number of drives indl 
chkdate func.obj func.c push ss segment address — 
- ) pop ds of scratch buffer 
IF ERRORLEVEL 1 goto :compile2 | | search: mov ah,47h is drive code okay? 
goto :next2 iF im = 2h carry flag set if 


drive code invalid 
Jump if code valid 
drive code too big; | 
decrement it and 
try again ~ _ 
Clear dh 
give results to caller 
adjust stack ptr 
restore caller's regs 


:compile2 _ . 4jnc_ okay 
msc func, func; — |. dec dl 


search 
dh, dh 
mov [bp+4],dx 
add sp, 64 

pop ds 

mov sp, bp 
pop bp 

ret 

ends 


jmp 
xor 


:next2 
chkdate main.exe main.obj func.obj 


IF ERRORLEVEL 1 goto : link 
goto :exit 


se Se Se Se Se Se Se Fe Me Se Se Me Se Fe 


: link 
link main.obj+func.obj,main.exe; 


:exit 


end DriveCnt 





Example 2: TEST.BAT file, a demonstration of the use of 
the CHKDATE program in a batch file to automate the 
compilation and linking of an application 


Example 3: George Smith’s DriveCnt routine to 
determine the number of disk drives present in an MS-DOS 
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COLUMNS 


ARTIFICIAL INTELLIGENCE 


Object-Oriented Programming in SCOOPS 


his month, I conclude my re- 
T view of PC Scheme (which I 
consider to be the Turbo Pascal of the 
PC LISP family) with some examples 
of object-oriented programming us- 
ing SCOOPS, the object-oriented ex- 
tension of the language. To do this, 
I'll have to make some extensions to 
PC Scheme itself—but first, some dis- 
cussion about LISP programming in 
general. 

LISP is the most organic and lifelike 
of all programming languages. Most 
of its dynamic character comes from 
the combination of complex, nested 
structures with dynamic reassign- 
ment of structures of pointers and a 
simple syntax that uses the same rep- 
resentation for data and program- 
ming code. 

The functional programming as- 
pect of LISP involves a special imple- 
mentation of argument passing so 
that usually few variables need to be 
stored permanently. The main thing 
in pure functional programming is 
not modifying objects in permanent 
storage but passing symbols as if they 
were values being passed between 
mathematical functions. The main 
result of such a program is the struc- 
ture it returns rather than the state it 
creates in the permanent storage of 
the machine. 

But LISP is not simply a single-para- 
digm programming language. It is a 
language that so far has been able to 
absorb each new programming mod- 
el as it appears and to incorporate 
these models in a functioning whole. 
Over the years it has absorbed other 
programming concepts and is con- 


by Ernest R. Tello 


tinuing to do so—for example, as I 
mentioned last month, SCOOPS has as- 
similated some features of Smalltalk. 
The original model on which the LISP 
language was based was that of func- 
tional programming, using the lamb- 
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da calculus. 

In pure functional LISP program- 
ming, anything that does not just re- 
turn a structure but modifies the ma- 
chine is generally considered a side 
effect. But it is often important in an 
object-oriented environment to mod- 
ify the object hierarchy dynamically 
in complex and carefully controlled 
ways. Take, for example, the case of 
performing simple list processing 
functions, such as updating and mod- 
ifying list structures. Here it is often 
the case that either or both of the 
functions of returning the necessary 
structure and producing the neces- 
sary structure in permanent storage 
are important parts of the required 
tasks. 

In the following example, I will 
show various versions of a function 
add-to-end that are implemented so 
as to return different values and pro- 
duce different side effects. This func- 
tion extends the list processing func- 
tions of LISP to include the ability to 
add an element to the end of an al- 
ready existing list structure. 

The function give-n-take was writ- 
ten to demonstrate the side effects of 
the add-to-end function. First, two 
lists are created—nums, which con- 
tains the list of number words (one 
two three four five); and morenums, 
which is composed of the comple- 
mentary number word list (six seven 
eight nine ten). Here is what give-n- 
take looks like: 


(define nums ‘(one two three four 
five)) 
(define morenums ‘(six seven eight 


nine ten)) 
(define (give-n-take) 
(add-to-end (car morenums) nums) 


(set! morenums (cdr morenums))) 


As you can see from the short ses- 
sion that follows, what give-n-take re- 
turns is different from the side ef- 
fects it has on these lists. It simply 
returns the morenums list that was 
passed to it. When you ask LISP for 
the contents of these lists by typing 
their names at the interpreter 
prompt, however, you see the effects 
that give-n-take has each time it is 
called. It takes numbers successively 
from the beginning of the morenums 
list and adds them to the end of the 
nums list: 


[2] nums 

(ONE TWO THREE FOUR FIVE) 

[3] morenums 

(SIX SEVEN EIGHT NINE TEN) 

[4] (give-n-take) 

(SEVEN EIGHT NINE TEN) 

[5] nums 

(ONE TWO THREE FOUR FIVE SIX) 
[6] morenums 

(SEVEN EIGHT NINE TEN) 

[7] (give-n-take) 

(EIGHT NINE TEN) 

[8] nums 

(ONE TWO THREE FOUR FIVE SIX SEVEN) 
[9] morenums 

(EIGHT NINE TEN) 


Now compare this to another ver- 
sion of the function called add-to- 
end-2. In the next session I create the 
list of integers from 1 to 4. My origi- 
nal add-to-end returns something un- 
usable, but the side effects are the 
correct result. Add-to-end-2 does just 
the opposite—it returns the list with 
the number added to the end, but 
when you examine the list of inte- 
gers, you see that nothing has 
changed. 


(6] (define integers ‘(1 2 3 4)) 
INTEGERS , 

(7) (add-to-end 5 integers) 
(4 5) 

[8] integers 
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(12345) 
(9] (add-to-end-2 6 integers) 
(123456) 

[10] integers 

(12345) 


This hasn’t been just an academic 
exercise. The side-effects version of 
add-to-end is useful for doing neces- 
sary housekeeping in an object-ori- 
ented LISP environment. It is valuable 
to be able to maintain lists of all the 
current instances of various classes 
that are alive in a system that is 
changing dynamically. Without the 
version of add-to-end that can actual- 
ly modify such lists, you would not 
be able to update them continually. 

Another function that could be 
useful is delete-last!. It performs the 
opposite service—that of destructive- 
ly removing the final element in a 
list. Its definition is: 


(define (delete-last! Ist) 
(delete! (car (last-pair Ist)) Ist)) 


The last-pair function in PC 
Scheme returns the last pair in a list. 
The function works for returning 
the last element as a single element 
list because the car reduces the pair 
to a simple list structure. 

The following quick session shows 
the behavior of delete-last!. As you 
can see, in this case both what the 
function returns and its side effects 
are identical. 


[2] (define numbers ‘(one two three 
four five)) 

NUMBERS 

[3] (delete-last! numbers) 

(ONE TWO THREE FOUR) 

[4] numbers 

(ONE TWO THREE FOUR) 


Programming in SCOOPS 
Sending messages is a rather simple 
matter of using the send function 
with the receiver object and the mes- 
sage to be sent plus its arguments. So, 
to send a message to the my-body ob- 
ject (introduced in the May column), 
giving it a new body part called toes, 
you would say: 


(1] (send my-body put-cpart-name 


‘toes) 

[2] body-parts 
(HEAD NECK ARMS HANDS TRUNK LEGS 
FEET TOES) 
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If you then changed your mind 
and decided to remove this new 
body part, you could do so by global- 
ly accessing the body-parts list using 
the newly defined function delete- 
last! as follows: 


[3] (delete-last! body-parts) 

[4] body-parts 

(HEAD NECK ARMS HANDS TRUNK LEGS 
FEET ) 


The code in Listing One, page 98, 
demonstrates simple inheritance in 
PC Scheme through several levels of 
a fairly linear hieararchy. First, the 
root class artifact is defined with the 
instance variables material, weight, 
purpose, and cost. Then transport- 
means is defined as a subclass of arti- 
fact with the additional instance vari- 
ables medium, time-range, and 
power-source. Naturally, transport- 
means inherits all the variables and 
methods of the artifact class. Then 
transport-vehicle is defined as the 
next subclass and passenger-vehicle 
as a subclass of it. Descending further 
in the same linear manner of adding 
more and more specific classes that 
inherit everything from the previous 
class, the classes water-transport-vehi- 
cle, surface-vessel, ship, and ocean- 
liner are defined. The instance object 
ship1 is created as an instance of the 
class ship. The two methods speed 
and direction are also provided for 
the ship class. 

Listing Two, page 99, provides an 
example of multiple inheritance in 
SCOOPS. Here I have implemented the 
example used in April’s column in PC 
Scheme. First, the classes business 
and adversary are defined. Then the 
class competitor is defined and uses 
the multiple inheritance feature to 
inherit everything from both of 
these two classes. 


Availability 

All the source code for articles in this 
issue is available on a single disk. To 
order, send $14.95 to Dr. Dobb’s Jour- 
nal, 501 Galveston Dr., Redwood City, 
CA 94063 or call (415) 366-3600 ext. 
216. Please specify the issue number 
and format (MS-DOS, Macintosh, 
Kaypro). 

DDJ 
(Listings begin on page 98.) 


Vote for your favorite feature/article. 
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FILES 


db DOS $39.95 


CREATE, VIEW AND 
EDIT dBase III data files from 
the DOS prompt. Use fast and 
powerful full screen editing with 
search, append and direct GOTO 
capabilities. Output to the screen 
or printer at your choice. All this 
from the DOS prompt. 



















db PASCAL $29.95 


TURBO CHARGE YOUR 
dBASE III FILE ACCESS. 
Use dBase III data files with 
Turbo Pascal. Simple dBase III 
file access. Report output with 
turbo speed. 


ORDER NOW 


Phone orders 


1-800-433-6854 
In Arizona 


(602) 435-2370 


Or send check or money order to: 
LogicPath 

P.O. Box 1267 

Chandler, AZ 85224-1267. 


















We welcome VISA/MC or COD in 
certified US funds only. Add $2.50 for 
shippping per order. In Arizona add 6% 
sales tax. Call or write for other products 
or additional information (602) 435-2370. 


OGIC ATH 


P.O. Box 1267 e Chandler, AZ 85244-1267 
Turbo Pascal, dBase III trademarks of Ashton-Tate. 
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Your search for execution speed is over. 
The new Microsoft® C Compiler Version 4.0 
is here. With blazing performance. We've 
added common sub-expression elimination 
to our optimizer that produces code that 
rips through the benchmarks faster than 
ever before. 


“..the Microsoft performance in the benchmarks 
for program execution is the best of the lot overall” 


— William Hunt, PC Tech Journal, January, 1986* 


But speed isn't the only edge you get with 
Microsoft C.Other advantages include a vari- 
ety of memory models like our new HUGE 
model that breaks the 64K limit on single 
data items. Plus our NEAR, FAR and HUGE 
pointers, which provide you greater flexibility. 
All this allows you to fine tune your program 
to be as small and fast as possible. 


“Excellent execution times, the fastest register 
sieve, and the best documentation in this review 
.. Microsoft Corporation has produced a 
tremendously useful compiler.’ — Christopher 
Skelly, Computer Language, February, 1986. 


No more debugging hassles. 
Introducing CodeView. Free. 
Now, for a limited time, welll give you an 
unprecedented programming tool when you 
buy Microsoft C, free. New Microsoft Code- 


View™ offers the most powerful tool yet in 





The tastest C 


the war on C bugs. Forget the hex dumps. 
Now you can view and work with programs 
at any level you want. Use the program 
source, the disassembled object code, or 


Microsoft C Compiler Version 4.00 
Microsoft C Compiler 


¢ Produces fast executables and optimized code including elimination 
of common sub-expressions. NEW! 
¢ Implements register variables. 
¢ Small, Medium and Large Memory model libraries. 
* Compact and HUGE memory model libraries. NEW! 
«Can mix models with NEAR, FAR and the new HUGE pointers. 
¢ Transport source and object code between MS-DOS® and XENIX® 
operating systems. 
¢ Library routines implement most of UNIX™ System V C library. 
¢ Start-up source code to help create ROMable code. 
¢ Full proposed ANSI C library support (except clock). 
¢ Large number of third party support libraries available. 
¢ Choose from three math libraries and generate in-line 8087/80287 
instructions or floating point calls: 
— floating point emulator (utilizes 8087/80287 if installed). 
— 8087/80287 coprocessor support. 
— alternate math package — extra speed without an 8087/80287. 
¢ Link your C routines with Microsoft FORTRAN (version 3.3 or 
higher), Microsoft Pascal (version 3.3 or higher) or Microsoft 
Macro Assembler. 
¢ Microsoft Windows support and MS-DOS 3.1 networking support. 
* Supports MS-DOS pathnames and input/output redirection. 


Microsoft Program Maintenance Utility. NEW! 
¢ Rebuilds your applications after your source files have changed. 
¢ Supports macro definitions and inference rules. 


Other Utilities 

¢ Library Manager. 

* Object Code Linker. 
¢ EXE File Compression Utility. 
¢ EXE File Header Utility. 
C Benchmarks 


In seconds 


Computer 
Microsoft Lattice Innovation Aztec Wizard 
C 40 C 30 (25 C86 3.2 C30 
Sieve of 
Eratosthenes 
(register) 82.9 151.4 172.3 88.0 91.9 
Copy Block 86.9 231.7 199.0 123.8 189.5 


Run on an IBM PC XT with 512K memory 


Microsoft CodeView 
Window-oriented source-level debugger. NEW! 


* Watch the values of your local and global variables and expressions 
as you debug. 

¢ Set conditional breakpoints on variables, expressions or memory; 
trace and single step. 

¢ Watch CPU registers and flags as you execute. 

¢ Effectively uses up to four windows. 

¢ Debug using your original source code, the resulting disassembly 
or both intermingled. 

« Use drop-down menus to execute CodeView commands. 

« Access the on-line help to lead you through CodeView's options 
and settings. 

¢ Easily debug graphics-oriented programs since program output is 
kept separate from debugger output. 

* Keyboard or optional mouse support. 


* Enter in familiar SY MDEB or DEBUG commands. 





“Reprinted from PC Tech Journal, January 1986, copyright 1986, Ziff-Davis Publishing. 


youve ever seen. 


both at the same time. Open a window to 
view CPU registers and flags. Watch local 
and global variables as well. All while your 
program is running. 

CodeView gives you complete control. 
Trace execution a line at a time — using 
source or assembly code. Or set conditional 
breakpoints on variables, memory or expres- 
sions. CodeView supports the familiar 
SYMDEB command syntax, as you'd expect. 
Commands are also available through os 
down menus. Combine the new window- 
oriented interface with our on-line help and 
debugging has never been easier. Or quicker. 
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Take the $5 CodeView tour. 

You may find it hard to believe our debug- 
ger can do all we've claimed. So we're offering 
test drives. Five bucks will put you behind 
the wheel of a Microsoft C demo disk with 
CodeView: See for yourself how fast debug- 
ging can get. 

For more information about the Code- 
View demo disk, the new Microsoft C 
Compiler, a list of third party library sup- 
port or the name of your nearest Microsoft 
dealer, call (800) 426-9400. In Washington 
State and Alaska, (206) 882-8088. In Canada 
call (416) 673-7638. 
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Microsoft C Compiler 


The High Performance Software 


fi J iew i i ion. UNIX is a 
Mi ft, MS-DOS and XENIX are registered trademarks and CodeView is a trademark of Microsoft Corporation 
trademark of ATET Bell Laboratories. IBM is a registered trademark of International Business Machines Corporation. TOffer expires 12/31/86. 
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- The fastest, tightest code. 





Though thesame can hartly 
eeanecne 


We have to tell you, we hada hard smallest, fastest FORTRAN code a 
time getting the name down this short. PC can handle. 
Because Microsoft's new FORTRAN aay apicrne oft’s FORTRAN Opti- 


Compiler actually has a far longer mizing Compiler generates such 
list of features. fast code that an IBM PC/XT 
It uses the same optimizer and approaches the speed of the VAX” 
code generator technology that made Peter Osgood, MIT, Project Athena, Director ofthe 
our C Compiler the industry leader. | 
And we've also added special This compiler has already passed 


loop optimizations that give you the _ the toughest test there is. It’s been 





Microsoft FORTRAN Optimizing Compiler Version 4.0. 


¢ Uses the Microsoft C optimizing technology, plus loop optimization to ¢ Microsoft CodeView: Window-oriented source-level debugger. NEW! 
generate the fastest executable code for MS-DOS. NEW! — Debug using your original source code, the resulting disassembly or 
Execution Speed Microsoft Ryan-McFarland IBM Professional both intermingled. 


(in Seconds) FORTRAN FORTRAN FORTRAN — Watch and change the values of your local and COMMON variables 
v. 4. v2.11 v. 1.22 as you debug. 

Sieve 790/ oS 38.51 —Set conditional breakpoints on variables, expressions or memory; trace 

Whetstone 53.82 08.67 79.04 and single step. 

Lookup 0.82 18.61 26.02 


Ol 6 — Debug Microsoft C programs as well as Microsoft Fortran programs. 
@ Fully GSA certified for ANSI 77 compatibility with no errors at the — Watch and change registers and flags as you execute. 
highest level. NEW! 


—Easily debug graphics oriented programs since program output is kept 
¢ Numerous IBM VS and DEC VAX extensions. NEW! separate irony O-baacer nie . ez v e 


GSA-certified as Full ANSIFORTRAN You can open windows and watch 


77, and 100% error-free. both variables (local and COMMON) 
“The Microsoft FORTRAN Opti- and CPU registers change. 
mizing Compiler let us port the You can set conditional breakpoints 
200,000 line Boeing Mathematical _using variables and expressions. 
Library (BCSLIB) with virtually no Debugging gets even easier with 
changes. This ANSI FORTRAN 77 the compiler’s advanced diagnostics. 


code was ported directly from Cray, 


Detailed error messages are 
CDC, DEC, IBM and other main- 
Sunes and workstations” thoroughly explained and cross- 


Ivor Philips, Boeing Computer Services, Program Manager referenced in OUr Tew manuals. 
Mathematical Software Libraries. Documentation that has been 
We've also included the same completely revised and expanded 

( advanced intrinsic math with tons of examples. 

a functions foundonVAX*and __ If were talking your language, use 















IBM° VS systems. Add — one of the numbers below for more 
details about the Microsoft® ANSI 
FORTRAN 77 Optimizing Compiler 
Version 4.0 with CodeView, 
wand the name of your 

r nearest dealer. 
memory model, and porting the © (Even it the call’s toll-free, 
biggest mainframe programs has it may bea good idea to refer to it as 
never been easier. “FORTRAN 4.0” for short.) 

ne the many additions we've 
made to our package is our exclusive s 
CodeView™ windowing debugger. Microsott FORTRAN 

It lets you trace through programs rich aeleasane arte. 


Call (800) 426-9400. In Washington State or Alaska, (206) 882-8088. In Canada, 


at any level you want, from source = {8788 


Microsoft and MS-DOS are registered trademarks and CodeView is a trademark of 


Microsoft Corporation. IBM is a registered trademark of International Business 
CO de to assembly language. Machines Coreen VAX isa ee trademark of Digital Equipment Corporation. 
@ Medium, Large and Huge Memory Model Libraries. NEW! ¢# Provides more detailed diagnostic error messages (almost twice as many 
@ Mix models with NEAR, FAR and new HUGE pointers. as competitors) and extensive documentation with non-ANSI 77 fea- 
# Common blocks and arrays greater than 64K. tures highlighted. NEW! 
¢# Choose from three math libraries and generate in-line 8087/80287 Proven reliability —tested with over 2.5 million lines of code compiled 
instructions or floating point calls: and executed. 

—floating point emulator (utilizes 8087/80287 if installed) # MS-DOS* network support with file / record locking and sharing. 
—8087/80287 coprocessor support @ Microsoft Program Maintenance Utility rebuilds your applications 
—alternate math package—extra speed without an 8087/80287 after your source files have changed. NEW! 

¢ Link your FORTRAN routines with Microsoft C (v.4.0 or higher), Microsoft Other utilities including faster overlay linker (links over 1Mbyte object 
Pascal (v. 3.3 or higher) or Microsoft Macro Assembler. code), library manager, EXE file compression utility, EXE file header 
¢ Largest number of 3rd party support libraries available. utility, MS-DOS environment setting utility and setup utility. 
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LETTERS 
(continued from page 12) 





fastest and just about the handiest 
editor under ten fingers (if it isn't, 
just redefine your macros the instant 
you think of something better). Just 
take the compiler and all-purpose 
resident macro program as bonuses. 

Now, the importance of speed is 
simply that we want to work at pro- 
gramming, not at running an editor. 
Like a fine sound system, a good edi- 
tor should be transparent. When I 
write while v <= maxv do, I don't 
think of the keys I press, only of the 
statement I'm producing. It should be 
the same when I want to move that 
statement, to indent it and what fol- 
lows, or simply to erase the line—or 
to find it in a 2,000-line file. What no 
one wants is to sit and look at the edi- 
tor editing. 

Which brings us to WordStar im- 
printing. I got imprinted with Word- 
Star because my mother imprinted 


me with ten fingers. For the first two 
days, it may be easier to use an editor 
that has F3 for ‘delete word” and 
shift-F3 for ‘delete line,’ but after 
those two days, only a WordStar- 
style editor gives you a chance to get 
to the point at which you only have 
to think ‘delete line’ and not notice 
the actual fingerwork needed to do 
it—because it doesn’t demand that 
your hands leave the typing position. 

Hunt-and-peck chickens may not 
understand this, but there is a world 
beyond the barnyard, you know. 
The WordStar commands aren't 
meant for the user’s manual but for 
the user’s hands. They're the natural 
extension of sheer speed because 
they remove another nontranspar- 
ent interface between your mind 
and the program text. 

So, my ultimate editor is simply the 
Turbo Pascal editor with a good mac- 


sSave [A] 


-Restore 


-(Body of subroutine) 


’ 


[X] 


*Data field of preceding instruction 





Example 1: A fast method for saving and restoring registers 


TXBLOCK _TXLENGTH 
_TXADDR 
_TXADDR+ 1 


#- 1 


-Set block length (0=256) 
*Set block address 


-Init tCimeout 


#0 -Init block index 


_TXSUM 
$FFFF,Y 
*-2 


TXBLOOP1 
—_TXADDR 
TXBLOOP2 HWREADY 
TXBLOOP3 
HWDATA 
#$FF 

*- 
_TXSUM 


#$FF 

*-1 
TXBLOOP 1 
—_TXSUM 


_TXLENGTH 


TXBLOOP3 
TXBLOOP2 


*-Reset TXSUM accum. 
sRirst. 
;-Address portion of LDA 
instruction 

-Check if Tx port is ready 
;(N)Check timeout 

;(Y¥)Tx the byte 

Accum TXSUM 

-Data portion of EOR instruction 
;Update running XOR sum 


get byte to send 


;End block? 

sData portion of CPY instruction 
>(N)Continue sending 

-Send the checksum 


;Timeout expired? _ 
;(N)Continue sending 


;(Y)Return timeout error 
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Example 2: An actual 6502 code fragment 





ro program plus several-document 
capacity, windowing, wordwrap for 
comments, block-limited search-and- 
replace with more complex specifi- 
cation capacity, and files greater 
than 64K. But never at the price of 
speed or the WordStar keyboard 
code. Don't mistake us far-voyaging 
mallards for clay pigeons. 

Philippe Ranger 

6120 Hutchison 

Montreal, Canada H2V 4C2 


6502 Hacks 

Dear DDJ, 

When I read Mark Ackerman’s “6502 
Hacks” (February 1987), I was both 
surprised and delighted that, in this 
world of 68000s and hypercubes, 
there is still anyone left who would 
spend the time and effort to write a 
good article about 6502 
programming. 

But, before anyone's programs 
start crashing, let me correct Mr. 
Ackerman on two related points. 
First, the software interrupt instruc- 
tion (BRK) uses the JRO (maskable in- 
terrupt) vector, not the NMI (nonmas- 
kable interrupt) vector. But to make 
matters even worse, the BRK instruc- 
tion pushes its address+ 2 on the re- 
turn stack. In order to return to the 
opcode immediately following the 
BRK, the return address on the stack 
must be dug up and decremented be- 
fore returning (very messy). 

Second, and more important, is 
that the RTI (return from interrupt) 
instruction is not functionally com- 
patible with the sequence PLP (pull 
processor), RTS (return from subrou- 
tine). The RTI instruction pulls the 
processor status byte and then con- 
tinues execution at the address 
pulled from the stack, increments 
the address by 1, and then continues 
execution at the adjusted address. 
This compensates for the fact that 
the JSR pushes the address of the 
next opcode-1. 

The reason for this lies in a quirk of 
the 6502 opcode processing. To exe- 
cute the JSR instruction, the proces- 
sor first fetches the opcode and the 
low byte of the address. It then 
pushes the current program counter 
(which is now pointing to the third 
byte of the instruction) and, finally, 
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fetches the high byte of the address. 
So, the address that gets pushed on 
the stack is always one byte shy of 
the next instruction. In contrast, the 
interrupt acknowledge sequence 
will only happen between instruc- 
tions, so the progam counter is al- 
ways pointing to an opcode when 
the interrupt return address is 
pushed. 

In his coverage of self-modifying 
code, I think Mr. Ackerman missed 
one very useful trick. I often save 
registers (because they are so very 
scarce) by storing their contents in 
the data portion of a load instruction 
located at the end of the routine [see 
Example 1, page 122]. It takes 5 bytes 
of code but is absolutely the fastest 
method of saving and restoring a reg- 
ister (six cycles total) and both the in- 
struction and data storage are local- 
ized in the subroutine. 

To demonstrate variations of the 
trick, I have included a program- 
ming fragment of an actual routine 
[see Example 2, page 122). The rou- 
tine transmits, over an extremely fast 
synchronous communication port, a 
block of data (from 1 to 256 bytes) fol- 
lowed by the exclusive-ORed sum of 
the block. It must also make sure that 
the port is not “hung” by keeping a 
decaying timer in the X register. The 
routine is passed the address of the 
block in registers A and Y and the 
length of the block in X. When the 
loop is cooking, it can transmit a byte 
every 27 cycles. 

Of course, I won't tell you what 
product this code is running in (the 
labels have been changed to protect 
the innocent), for fear that someone 
wouldn't buy our system if they 
knew I programmed this way on a 
regular basis. 

James Bucanek 

C-Si Systems 

572 W. Pima 

Coolidge, AZ 85228 


DDJ 
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The Tele 0 





The unique features of this four part, multitasking 
operating system will allow you to fully exploit the 
power of any 8086-based machine! Tele is written in 
C and assembly language for IBM PC compatibles and 
includes preemptive multitasking capabilities and an 
unlimited number of tasks. Tele contains full C and 
Assembler source code, as well as precompiled libraries. 
It is compatible with MS-DOS, Unix, and the MOSI 
standard. MS-DOS disk format. 

SK: The System Kernel includes the most crucial part 
of the Tele Operating System - the preemptive multitask- 
ing algorithm. SK also contains an initialization module, 
general purpose utility functions for string and character 
handling, format conversion, terminal support and 
machine interface, along with a real-time task manage- 
ment system. All other components require SK: The 
System Kernel. 


SK Item #090 $49.95 


DS: The Display Driver contains BIOS level drivers for 
a memory- mapped display (the fastest way to display 
data), window management support and communication 
coordination between the operator and tasks in a mullti- 
tasking environment. D§ includes functions to create 
and delete virtual displays, and functions to overlay a 
portion of a virtual display on the physical display. 

An unlimited number of virtual displays can belong to 
any particular task, and an unlimited number can be in 
the system at any time. Requires SK: The System Kernel. 
DS Item #091 $39.95 


ratin 
System Toolkit 
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The System Kernel 
of the Tele Operating 
System Toolkit 


by Ken Berry 
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by Ken Berry 





To Orders Returm this order form with your payment to M&T Books, 501 Galveston 
Dr., Redwood City, CA 94063 Or, Call TOLL-FREE 800-533-4372 


Mon-Fri 8AM-SPM. In CA call 800-356-2002. 


YES! 


Please Item #091 DS: The Display Driver $39.95 
send me: Subtotal 
CA Residents add tax 

Add $2.25 per item for shipping 

TOTAL 


Item #090 SK: The System Kernel $49.95 


Pines 





[_] Check Enclosed. Make Payable to M&T Publishing, Inc. 


Charge my [ ] VISA [ ]M/C 


RN I a ae ate eh a 


Name 
Address 
FE a Sa A aa etc eS eet aaa eR 


[ |Amer. Exp 
Zip 
31283 
123 


FORUM 


VIEWPOINT 
(continued from page 14) 


ple) to use simple trigonometry in a 
high-level language than it is to use it 
in assembly language. 

High-level languages can enhance 
the value of a programmer's work 
by allowing code to run with very lit- 
tle alteration on many different com- 
puters—all that is required is a com- 
patible compiler for each. My 68000 
cross assembler is now operational 
on computers that use Z80, 8088, and 
68000 processors. I would like to 
challenge Suman—or any assembly- 
language programmer—to convert 
an assembly-language program of 
similar functionality and complexity 
to run in two environments. I suspect 
that it would take them longer than 
the few days each that it took to port 
the 68000 cross assembler I presented 
in the April and May 1986 issues of 
DDJ. 

With reference to Suman’s specific 
criticisms, the use of named con- 
stants (for any language, including 
assembly language) is almost univer- 
sally considered to improve main- 
tainability by localizing changes. Al- 


though I used the constants FIRST and 
LAST only twice (not once, as Suman 
stated), I feel their use was justified. 

As to the lack of initialized vari- 
ables in Modula-2, I agree that this isa 
defect of the language. That should 
not, however, be an indictment of all 
high-level languages—C does allow 
initialized variables, including initial- 
ized structures and arrrays. If Mod- 
ula-2 allowed initialized variables, 
there would have been no need for 
InitOperationCodes (the module that 
Suman disliked so much). The mne- 
monic lookup table could have been 
created at compile time—in the mod- 
ule that needed the table—and with 
much less overhead. 

Certainly, the mnemonic lookup 
table of X68000 could have been writ- 
ten more efficiently using assembly 
language. It would have been harder 
to write or to read, however, and it 
would not have been portable (some 
processors invert the order of bytes 
within words). The sets that were 
used for the allowable addressing 
modes (ModeA and ModeB) repre- 








IS THERE A VOID 
IN YOUR LIFE? 


Admit it — you’ve been missing something. What you need is a 
practical publication that speaks Turbo Pascal, and Turbo Pascal only. 
Turbo Tech Report does just that: this bimonthly newsletter disk 
publication provides practical programming solutions both on disk 
and on paper. The approach is hands-on and how-to. Every issue 


contains: 


e Articles written by Turbo Pascal experts. 
e Reviews of the latest, hottest Turbo Pascal software products. 
¢ Practical demonstrations of how to solve a particular problem 


with a Turbo Pascal product. 


e A disk filled with code. You'll receive applications developed by 
authors, plus useful utilities, libraries and routines from Turbo 


Pascal users worldwide. 


Fill the void with a subscription to 7wrho Tech Report: 6 issues with 
6 disks for $99. Call (800) 533-4372 or Calif. residents call 
(800) 356-2002 and start your subscription today! 
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sented the 68000 addressing scheme 
in a recognizable way. For example, 
one of the set members was called 
Size67 to indicate that the sixth and 
seventh bits of the 68000 operation 
code were used to indicate the size of 
the operation. If that member were 
to be converted to a computer word 
(Is and Os), a programmer reading 
the listing might be at a loss to figure 
out what the significance of a partic- 
ular bit (or combination of bits) was. 

Finally, Suman seems to contradict 
his own point about turgidity and re- 
dundancy when he suggests that I 
should have used 118 individual 
write statements instead of the sim- 
ple loop: 


FOR i1:= FIRST TO LAST DO 
WriteRec (f, Table68K[i)); 
END; 


Perhaps an ideal solution to the di- 
lemma of choosing between the ex- 
pressiveness of high-level languages 
and the efficiency of assembly lan- 
guage is to mix the two. Most decent 
compilers allow the integration of as- 
sembly-language modules. A pro- 
gram can be written and debugged 
in Modula-2 or C, then profiled to 
identify the bottlenecks. Finally, 
these sections can be rewritten in as- 
sembly language. The original high- 
level language code can be left be- 
hind as a comment block to the 
assembly language. Although this 
would hamper portability some- 
what, the sections of a program that 
benefit from recasting in assembly 
language are usually a small portion 
of the overall code. Projects that 
would be Herculean tasks in assem- 
bly language become quite comfort- 
able using modern high-level lan- 
guages. Get your project working, 
then if you need more speed or bet- 
ter memory utilization, tune it up us- 
ing a small amount of hand-coded as- 
sembly language. 


DDJ 


Vote for your favorite feature/article. 
Circle Reader Service No. 1. 
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LINE: 15 COL: 16 FILE: PHOTO .263 
WINDOW 1 
/* Main loop - displays the ma] VEDIT PLUS is an advanced editor that 
makes your program development and word 
do { processing as efficient and easy as 
scrlines = SCRLINES: possible. VEDIT PLUS is simple enough to 
scrwidth = QCRWIDTH: learn and use for the novice, yet has the 
clrscreen(scrlines-28): speed, flexibility and power to satisfy 
show( main_menu ); the most demanding computer professional. 
ret_val = getrange( mm_pro| VEDIT PLUS is particularly suited for 
process( ret_val, (new_ved| writing all types of programs and lengthy 
} while ( ret_val *= EXIT_OK )| documents such as reports or manuscripts. 


sp 2 
This shows how [JEDIT PLUS can perform 
if (new vedit && (table in t= | windowing. One window is used for word 
printf( crt_sel ): processing, a sécond for program 
Tay Oe Deedee a) ae ia tL Ce 
else outcrIf(): Up to 48 windows are supported and you 
i determine each window's size and color. 


WINDOW $ 


DIRECTORY C:\VEDIT\NEW 
COMPARE .VDM CV263  .VDM MAIL A))) Re) De oD 
SORT | ey 090d DA DL 


Stunning speed. Unmatched performance. Total flexibility. 
Simple and intuitive operation. The newest VEDIT PLUS de- 
fies comparison. 


Try A Dazzling Demo Yourself. 


The free demo disk is fully functional - you cantry all features 
yourself. Best. the demo includes a dazzling menu-driven 
tutorial - you experiment in one window while another gives 
instructions. 


The powerful macro programming language helps you 
eliminate repetitive editing tasks. The impressive 
demo/tutorial is written entirely as a’macro - it shows that no 
other editors ‘macro language even comes close. 


Go ahead. Call for your free demo today. You'll see why 
VEDIT PLUS has been the #1 choice of programmers, writers 
and engineers since 1980. 


Available for IBM PC. TI Professional, Tandy 2000, DEC 
Rainbow, Wang PC. MS-DOS. CP/M-86 and CP/M-80. (Yes! 
We support windows on most CRT terminals, including 
CRT s connected to an IBM PC.) Order direct or from your 
dealer. $185. 


Compare features 


BRIEF Norton PMATE 
an erred Editor 
‘Off the cuff macros No No Yes 
Built-in macros Yes No Yes 
Keystroke macros Only 1 No No 
Multiple file editing 20 + 2 No 
Windows 20.45 2 No 
Macro execution wincow No No No 
Trace & Breakpoint macros No No Yes 
Execute DOS commands =‘ Yes Yes Yes 
Configurable keyboard 

Layout Hard No Hard 

Cut and paste buffers 1 1 1 
Undo line changes Yes No No 
Paragraph justification No No No 
On-line calculator No No No 
Manual size / index 250/No 42/No 469/Yes 
Benchmarks in 120K File: 
2000 replacements 1:15 min. 34 sec. 1:07 min. 
Pattern matching search 20 sec. Cannot Cannot 


Pattern matching replace 2:40 min. Cannot Cannot 


VEDIT and CompuView are registered trademarks of CompuView Products. Inc. BRIEF is a 
trademark of UnderWare. Inc. PMATE is a trademark of Phoenix Technologies Ltd. Norton Editor is a 
trademark of Peter Norton Computing Inc 








PROGRAMMABLE 
EDITOR 


(Call for FREE DEMO disk) 


if 








VEDIT PLUS FEATURES 


e Simultaneousy edit up to 37 files of unlimited size. 

e Split the screen into variable sized windows. 

e ‘Virtual’ disk buffering simplifies editing of large files. 

e Memory management supports up to 640K. 

e Execute DOS commands or other programs. 

e MS-DOS pathname support. 

e Horizontal scrolling - edit long lines. 

e Flexible ‘cut and paste’ with 36 ‘scratch-pad’ buffers. 

e Customization - determine your own keyboard layout, create 
your own editing functions, support any screen size. 

e Optimized for IBM PC/XT/AT. Color windows. 43 line EGA. 


EASY TO USE 


e Interactive on-line help is user changeable and expandable. 
e On-line integer calculator (also algebraic expressions). 

e Single key search and global or selective replace. 

e Pop-up menus for easy access to many editing functions. 

e Keystroke macros speed editing, ‘hot keys’ for menu functions. 


FOR PROGRAMMERS 


e Automatic Indent/Undent for ‘C’, PL/I, PASCAL, etc. 

e Match/check nested parentheses, i.e. ‘{’ and ‘}’ for ‘C’. 

e Automatic conversion to upper case for assembly language 
labels, opcodes, operands with comments unchanged. 

e Optional 8080 to 8086 source code translator. 


FOR WRITERS 


e Word Wrap and paragraph formatting at adjustable margins. 
e Right margin justification. 

e Support foreign, graphic and special characters. 

e Convert to/from WordStar and mainframe files. 

e Print any portion of file; selectable printer margins. 


MACRO PROGRAMMING LANGUAGE 


e |If-then-else , looping, testing, branching, user prompts, 
keyboard input, 17 bit algebraic expressions, variables. 

e Flexible windowing - forms entry, select size, color, etc. 

e Simplifies complex text processing, formatting, conversions 
and translations. 

e Complete TECO capability. 

e Free macros: ¢ Full screen file compare/merge @ Sort mailing 
lists e Print Formatter e Menu-driven tutorial 
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1955 Pauline Blvd.. Ann Arbor. MI 48103 (313) 996-1299, TELEX 701821 
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Dr. Dobb’s Toolbook of C 


his authoritative reference contains over 700 pages, 
including the best C articles from Dr. Dobb's Journal 
along with new material. You'll find hundreds of pages of 
valuable C source code, including a complete compiler, an 
assembler, and text processing programs. 


Toolbook of C Item #005 $29.95 


Small C Handbook & 
Smali C Compiler 


his compiler and handbook provides al] you need for 

learning how compilers are constructed, and for learn- 
ing C at its most fundamental level. You'll find a discussion 
of assembly language concepts and program translation 
tools, and of how to generate a new version of the compiler. 
Full source code is included. Please specify MS/PC-DOS or 
CP/M: Kaypro, Osborne, Apple, Zenith Z-100 DS/DD, 8” 
59/SD. 
CP/M Compiler & Handbook Item #006B $37.90 
MS/PC-DOS Compiler & Handbook Item #006C $42.90 





Small Windows: A 
Windowing Library for 
Smali C 


mall-Windows is a complete windowing library for 

small-C. The package contains: 18 video functions 
written in assembly language; 7 menu functions that sup- 
port both static and pop-up menus; and 41 window func- 
tions, including functions to clean, frame, move, hide, 
show, scroll, push, and pop windows. A file directory facil- 
ity illustrates the use of the window menu functions and 
provides file selection, renaming and deletion capability. 
Two test programs are also included. For PC/MS-DOS sys- 
tems only. Documentation and full source code is included. 
Small-Windows Item #109 $29.95 


Smaill-Tools: Programs 
for Text Processing 


his package of Small-C programs performs specific, 
modular operations on text files. It is supplied as source 
code with full documentation. With the Small-C Compiler, 
you can select and adapt these tools to meet your needs. 
Please specify MS/PC-DOS or CP/M: Kaypro, Osborne, 
Apple, Zenith Z-100 DS/DD, 8” SS/SD. 
Small-Tools Item #010A $29.95 


Smali-Mac: An 
Assembler for Small-C 


his package includes: a simplified macro facility, C 
language expression operators, object file visibility, 
descriptive error messages and an externally defined in- 
struction table. Source code and documentation is includ- 
ed. CP/M only. Please specify: Kaypro, Osborne, Apple, 
Zenith Z-100 DS/DD, 8” SS/SD. 
Small-Mac Item #012A $29.95 


DR. DOBB'S (* TOOLBOX 


CP/M C Package 

Save Over $27! 

eceive: Dr. Dobb's Toolbook of C, The Small-C Hand- 
book and Small-C Compiler, Small-Mac Assembler, 


and Small-Tools Text Processing Programs. Only $99.95! 
CP/M Package Item #005A $99.95 





MS/PC-DOS C Package 
Save $22! 
eceive: Dr. Dobb's Toolbook of C, The Small-C Hand- 
book and MS/PC-DOS Addendum, Small-C Com- 
piler, Small-Tools Text Processing Programs and Small 
Windows. Only $109.95! 
MS/PC-DOS Package Item #005W $109.95 


C Disk Formats 
Please indicate MS/PC-DOS or CP/M. For CP/M specify: 
Apple, Osborne, Kaypro, Zenith Z-100 DS/DD, 8” SS/SD. 


To Order: Return this order form with your 


payment to M & T Books, 501 Galveston Dr., Redwood 
City, CA 94063. 

Or, call TOLL-FREE 800-533-4372 Mon-Fri 8AM-5PM. 
(In CA call 800-356-2002) 


ES GE SS SS ee Ge 


Name 
Address 
CY Sie 


Item # Description Price 


Subtotal 


CA residents add sales tax % 





Add $2.25 per item for shipping 
TOTAL 
| | Check Enclosed. Make Payable to M & T Publishing Inc. 
Charge my [ | VISA [ ]M/C [_] Amer. Exp. 
re Fo a Ep ote 


Signature 


3128C 
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TSF is owned and operated by 
programmers, so we understand your 


needs. We believe and practice in- 
tegrity in all business dealings. We ad- 
vertise real prices and offer the best 
possible terms to all customers. We 
provide prompt delivery of current 
product versions. 


We carry only products which we have 
personally used or which come with 
strong recommendations from 
developers we respect. We have the 
technical capability and the interest to 
search for and find new products to 
meet your specific needs. We will glad- 
ly provide quotes for volume purchases 


or for products outside our normal 
product line. We consider it our job to 
help you get answers when publisher's 
technical support is unresponsive. At 
TSF service means more than a pushy 
sales pitch and a $2 lower price. 


We accept checks, Visa, Mastercard, 
American Express and COD. We 
charge your card only when we ship 
and do not add a surcharge. We 
provide free UPS delivery on software 
orders over $100 ($3 delivery charge 
on orders under $100). Our COD fee is 
$4. We allow return privileges on most 
products. Give us a try. 


June Special: BDT only $75 -- Save 25% 


Basic Development Tools™ 


Powerful "Automatic Programming" Tools that 
Save You Hours of Valuable Time. 






e Screen Builder 


The novice or power programmer can easily add these professional features. 


e B+ Tree Disk File Access 
e EZ Screen Pop-Up Windows 
e Help screen message system 






BASIC Development Tools™ (BDT™) is 
a set of four compatible tools which 
greatly increase the quality of your 
programs while requiring a minimum in- 
vestment in money, code and debug- 
ging time. 


1. Screen Builder System 


Translates a painted screen image into 
BASIC code that you merge or include 
into your programs. 


2. B+Tree Data Manager 


Provides a very fast file access system 
that can be used for both sequential ac- 
cess and for random access with up to 
40 keys. Complete source provided. 


3. EZ Screen Pop-up Window Manager 


Lets you easily insert and remove 
menus, windows and notepads from 
your program’s display. Assembler 
routines (which you call from Basic) are 
used to automatically save and restore 
the display buffer, providing full screen 
management without slowing down ex- 
ecution speed. 








Message 
System | 
Allows the ff F 


text sensitive 
help messages in your application 
program. 


BDT gives you four great tools to im- 
prove the quality of your programs and 
to improve your own programming 
productivity. The BDT tools can be 
used used separately or together and 
are compatible with BASICA, 
GWBASIC, Quick Basic™ and Borland 
Turbo Basic™. Includes two diskettes 
and a 220 page manual. No royalties. 
At a list price of $99 its a bargain -- at 
TSF’s June special price of $75 its a 
steal. Don’t delay, call or write now to 


' place your order! 30 Day money back 


guarantee. 


STERLING ae 


Sterling Castle, 702 Washington St., Suite 174, 
Marina del Rey, CA 90292 
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The Software Family 


649 Mission Street 
San Francisco, CA 94105 


(1)800-443-7176 


In California or outside U.S. 


(415)583-4166 


Send Or Call For 
Comprehensive Free 
Catalog 


TSF carries a complete line of software and 
hardware tools for programmers and system 
engineers. We offer "big name" products at 
competitive prices and a large selection of 
hard-to-find products that save you hours of re- 
search, evaluation and development work. 
Our catalog includes hype-less product 
descriptions that explain what our products do 
to improve your productity and your product's 
quality. Call or send the coupon for your free 


copy. 


___ Please send me a free catalog. 
I'm most interested in: 

___ Basic _C _ Pascal 

____ Turbo Pascal __ Other Languages 
___ dBase __ Technical Publishing 





: __ Please send the following products: 


_ Name: 





_ Address: 
_ City/State/Zip: 
_ Credit Card: 


: Expiration Date: 


Mail to: TSF, 649 Mission Street, San Fran- 


cisco, CA 94105 e 
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THE STATE OF BASIC 





BASIC Functions 

In this issue we'll look at user-de- 
fined functions as implemented by 
QuickBASIC, Turbo BASIC, True BASIC, 
and Better BASIC. 

QuickBASIC 2.0 permits user-de- 
fined nonrecursive functions to ex- 
tend over multiple lines. All function 
names must start with the letters FN. 
A data type symbol may be required, 
depending on the data type returned 
by the function and any global de- 
fault name declarations used. A func- 
tion has an optional list of scalar ar- 
guments (no arrays are allowed) with 
all the arguments passed by value. 
Multiline functions end with an END 
DEF statement and can use EXIT DEF 
to exit from the function. 

Most of the new BASIC dialects al- 
low passing of all arguments by val- 
ue. A function with no arguments 
that returns a simple value is one 
way of implementing Pascal-like 
constants; you cannot accidentally al- 
ter the function’s value, as may be 
the case with a variable. 

Nonparameter variables that are 
used within the functions are global. 
To avoid undesirable side effects and 
to localize such variables, include 
them in a STATIC declaration. This 
technique ensures that new address- 
es are assigned to these variables ev- 


ery time a STATIC declaration is en- 
countered. 


Turbo BASIC functions are similar 
to those of QuickBASIC, with the fol- 
lowing differences: 


¢ Turbo BASIC functions can be 
recursive. 

¢e Local variables are declared inside 
functions using the LOCAL keyword. 
¢ The SHARED keyword is used to ex- 
plicitly declare global variables. 
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Turbo BASIC offers LOCAL and 
STATIC declarations, which give pro- 
grammers the ability to explicitly de- 
clare local nonstatic variables. In 
Turbo BASIC, local arrays are first de- 
clared in the LOCAL list and then dy- 
namically dimensioned using DIM 
DYNAMIC. 


DEF FNFACT(N%) — 
' QuickBASIC nonrecursive factorialfunction _ 
STATIC 1%, F ' static local variables _ - 
F=1' initielize 

' loopto get factorial 


FORI€ =270Ne ~~ 
F=F* i~ 

NEXTIC 

FNFACT =F 

END DEF _ 





' Turbo 

IFNK> (THER 
FNFACT = Ng * FNFACT(NE-1) 

ELsE cr rrrts—“‘isCiéisC*C 
FNFACT 

END IF _ 

END DEF 


END DEF _ 


REAL FUNCTION: Fact _ 


INTEGERARG:N 
EXTERNAL: Fact 


Example 3: True BASIC listing for a recursive factorial function 


True BASIC implements user-de- 
fined functions in a slightly different 
way from that of the previous two 
BASIC dialects. First, function names 
do not have to start with the letters 
FN. The price to pay, however, is the 
use of DECLARE DEF declarations to 
inform True BASIC of the function 


Example 1: QuickBASIC listing for a nonrecursive factorial function 


10 IFN>1 THEN RESULT = N * Fact (N-1) ELSE Fact = 1 


END FUNCTION © : 





Example 4: Better BASIC listing for a recursive factorial function 


REAL FUNCTION: LOGN 
REAL ARG: X 
REAL ARG: BAISE/OPT=10 


10 RESULT = LOG(X) / LOG( BAISE) 
END FUNCTION 





Example 5: Simple power function in Better BASIC that demonstrates the 


default parameter feature 
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names imported from external li- 
braries and modules. True BASIC sup- 
ports recursive multiline functions 
that take scalar- and array-type pa- 
rameters. All the function parame- 
ters are passed by value. 

In essence, True BASIC supports 
two levels of functions: internal and 
external. Internal functions are those 
located in the main program, before 
the unique END statement. All the 
variables in the internal function and 
not in the argument list are global, 
which enables internal functions to 
create and manipulate global vari- 
ables. External functions are located 
either after the END statement of the 
main program or in an external li- 
brary or module file. External func- 
tions defined in modules can access 
information through the argument 
list, SHARED variables, and PUBLIC 
variables. External functions in li- 
braries have a strict data interface 
because they rely mainly on the ar- 
gument lists. Argument lists in True 
BASIC can contain a file I/O channel 
number that allows file I/O, which 
provides another method of access- 
ing large data that are stored in inter- 
mediate files. 

Better BASIC approaches the imple- 
mentation of functions in a Pascal- 
like fashion: the type of the function 
or its arguments is explicitly de- 
clared using data-type keywords and 
not symbols. Much of the discussion 
about Better BASIC procedures that 
appeared in the May column applies 
to functions. In addition: 


e Function names do not need to start 
with the letters FN. 

¢ The function type and name are de- 
clared on a separate line. This causes 
Better BASIC to respond interactively 
by creating a new workspace for the 
function and display and by display- 
ing the memory available for it. Con- 
sequently, functions can use any 
range of valid line numbers without 
conflicting with other functions, pro- 
cedures, and the main program. 

e Parameters are declared by first list- 
ing their type, the keyword ARG:, 
and the parameter name. Like Better 
BASIC procedures, parameters can be 
assigned default values. 

¢The result of the function is re- 
turned using the standard identifier 
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RESULT. 

¢ Recursive functions need to declare 
the function and any local variables 
as external. This enables Better BASIC 
to allocate new addresses instead of 
using the same ones as in the calling 
function. 


Examples 1-4, page 128, show ver- 
sions of the factorial function written 
in each of the BASIC implementations 
discussed here. Recursive versions 
are used with all implementations 


except QuickBASIC. Example 5, page 
128, shows a simple Better BASIC 
function that returns the logarithm 
to any base. The default is base 10. 
That is, using the function LOGN(X) 
returns the base-10 logarithm, and 
LOGN(X,BAISE) returns the logarithm 
of X to base BAISE. 


DDJ 


Vote for your favorite feature/article. 
Circle Reader Service No. 12 





Lattice Works 





LATTICE ANNOUNCES 
MICROSOFT WINDOWS 
SUPPORT IN VERSION 3.2 

Version 3.2 of the Lattice MS-DOS 
C Compiler features full support for 
Microsoft Windows—including the 
‘“far;’ “near;’ and “‘pascal”’ keywords. 

In addition, version 3.2 includes 
the ability to generate more than 64K 
bytes of static data and to declare 
objects larger than 64K bytes. It also 
includes improved support for ROM- 
based applications via the “‘const”’ 
data type. Version 3.2 is a significant 
release because it eliminates Micro- 
soft’s claimed monopoly on future 
MS-DOS C development tools. Now 
that the Lattice MS-DOS C Compiler 
supports a window interface, pro- 
grammers using Lattice C can avoid 
the problems caused by switching 
to a different compiler. $500.00 





LATTICE NOW OFFERS 
ENHANCED AmigaDOS 
C COMPILER 

Version 3.1 of the Lattice 
AmigaDOS C Compiler offers a new 
library with 100 more functions 
than the standard AmigaDOS C 
Compiler. What’s more, increased 
library modularity and new address- 
ing modes help reduce load module 
sizes by more than 20%. The new 
version also features faster pointer 
and integer math, faster IEEE floating 
point routines, direct support of the 


oe 
> 
> 


Lattice 


(800)533-3577 _ In Illinois (312) 858-7950 


TELEX 532253 


Amiga’s FFP format floating point 
library, and multi-tasking support. 
With Version 3.1, Lattice has 
broken free of the reliance on the 
Amiga standard linker and object 
file format. This new release includes 
completely new expanded documen- 
tation, and a Lattice assembler and 
linker which remain compatible 
with previous software but allows 
professional programmers to take 
advantage of both the Amiga’s speed 
and the industry’s standardization. 
Lattice AmigaDOS C Compiler with 
Lattice’s Text Management Utilities, 
$225. Professional AmigaDOS C 
Compiler with, Text Management 
Utilities, Lattice Make Utility, Lattice 
Screen Editor, and the Metadigm 
MetaScope Debugger, $375. 
AmigaDOS C Compiler $150. 


LATTICE RELEASES NEW 
VERSIONS OF C CROSS 
COMPILER AND LINKER 

Version 3.1 of the Lattice C Cross 
Compiler to MS-DOS and version 
2.12 of the Plink86Plus Overlay 
Linker are now available for Sun and 
Apollo workstations as well as the 
DEC VAX Family of processors run- 
ning VMS, UNIX or Berkeley UNIX. 

All Lattice C Cross Compilers 
possess the same functionality and 
generate the same code as the native 
Lattice MS-DOS C Compiler. This 
allows users to take advantage of the 
larger systems’ speed and multi-user 
capabilities when creating applica- 
tions for most popular PCs. 

Contact Lattice Corporate Sales 
for details. 


FAX (312) 858-8473 


INTERNATIONAL SALES OFFICES: Benelux: Ines Datacom (32)2-720-51-61 


Japan: Lifeboat, Inc. (03)293-4711 


England: Roundhill (0672)54675 


France: Echosoft (1)4824.54.04 Germany: Pfotenhaur (49)7841/5058 


Hong Kong: Prima 85258442525 
Australia: FMS (03) 699-9899 


A.I. Soft Korea, Inc. (02)7836372 
Italy: Lifeboat Associates Italia (02) 46.46.01 
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USING THE WRONG LANGUAGE CAN BE MURDER: 
SPEAK SMALLTALK/V 


Let's talk languages. 
Programming languages 


can be killers.’ To many, 
they're foreign, complex, 
and generally intimidating. 
Mistakes can be deadly. 

With Smalltalk/V, 
you have an elegantly 
simple solution that puts 
the power and majesty of 
a major AI programming language on your PC or 
compatible. It makes no difference if you’re an 
experienced programmer or just getting started. 
Smalltalk/V gives you an easy-to-use and flexible 
programming tool. 

This is the same language used by leading 
software companies for their new product develop- 
ment. There are sound reasons for this. Smalltalk/V 
offers a totally integrated programming environ- 
ment using the premier object-oriented language. 
You use natural language rather than complex 
programming codes. It puts Macintosh-type 
graphic features on a PC including over- 
lapping windows, bit-mapping, pop-up 
menus, and a mouse interface. More than 
mere window dressing, Smalltalk/V delivers 
fully interactive windows that are easy to 
build and quick to modify. 

But don't just take our word on it. 

Hear what the experts have to say: 





this turns your PC into a hot workstation. Its fantastic... 


Highly recommended. Joh Pook 


Contributing Editor 


PC Magazine 


“The tutorial provides the best introduction to 


Smalltalk available. Bhs aia Moraes 


Al Expert Magazine 


like Turbo Pascal, C or Basic 


Card number: 


Expiration date: 


I 
| 
i 
i 
| 
I 
l 
i 
“This is the real thing folks. A super Smalltalk like [ Name: 
‘ Street Address: 
l 
l 
i 
I 
i 
' 
q 


City/State/Zip: 


Small 


digitalk inc. nes 





“Smalltalk/V 1s the highest performance object-oriented 


programming system available for PGs." 


Dr. Piero Scaruffi 
Chief Scientist 
Olivetti Artificial 
Intelligence Center 


‘Today, thousands of professionals, scientists 
and engineers are using Smalltalk/V to solve both 
simple and expert problems. Giving them a new 
dimension in computer applications for their PC. 

Put new life into your PC by calling toll free 
1-800-922-8255 and ordering Smalltalk/V today. 
Smalltalk/V by Digitalk, Inc., 9841 Airport Blvd., 


Los Angeles, CA 90045. 
$9995 


(213) 645-1082. 

Smalltalk/V comes with 10 starter applications including Prolog and each Application 
Pack adds several more. All source code is included. Supports 640 x 480 color graphics 
with color extension pack. 


Smalltalk/V requires DOS and 512K RAM on IBM PC/AT/PS or compatibles and a CGA, EGA, 


Toshiba T3100, Hercules, or AT&T 6300 graphic controller. A Microsoft or compatible mouse 
is recommended. Not copy protected. 


Turbo Pascal is a trademark of Borland Internation. IBM, IBM PC/AT/PS are trademarks of 


International Business Machines Corporation. Macintosh is a trademark of Apple Computer, Inc. 


RS-232 Communications 


information to: Digitalk, Inc., 9841 Airport ee aie i 
- oior Extension 
Boulevard, Los Angeles, CA 90045. Pack $49.95 
Credit Card C] VISA C] Mastercard “Goodies” Application 
Pack $49.95 


SPECIAL OFFER: 
Smalltalk/V and all 

3 packs only $199.95 
Shipping and handling $5.00 
(Outside North 

America $15.00) 
California residents add 
applicable sales tax 


TOTAL , Se ee 
*Unconditional 60-day money-back guaran- 
tee. Simply return to Digitalk, Inc. and 


your refund will be immediately forwarded 


TO ORDER CALL 1-800-922-8255 TODAY. 


60-DAY MONEY-BACK GUARANTEE* = Smalltalk/V $99.95 
Send check, money order, or credit card 


| Mid oe 








One language supports this community. 


TALK OF THE TOWN 


™ and network files Call Microsoft 
age FORTRAN, C, Pascal, and assembler 
PC and producing the fastest, most ~~ Upgrade from TURBO Pascal with 


compact code available. For the compatible strings, equivalent pr i 
professional ee imagine what Olam oe ele and sae to TURBO ieee eee 
you can do with this power: Plus! | 
en 1a) <-1010 100) gt om) arson (oe40, On _& Intel CEL87 mathematical library for 
_ | §) Transport MS-DOS programs to VAX, scientific computing ® A special interface 
PDP11, and 68000 machines with only between Pascal-2 and the programmable 
minor ad betes oa BRIEF text editor (editor optional). 
program size by up to 50% se allo = Certified ISO standard Level 1. 
_DOS-addressable memory through Dramatically improve your productivity 
efficient large-memory model ~~ Speed and introduce your PC software 
error correction and save development to the VAX next door. 
turn-around time with sophisticated error Call or write OREGON SOFTWARE, INC. 
checking and reporting | Find and fix 6915 SW Macadam Avenue, 
logical errors with the interactive source- Portland, OR 97219 (800) 367-2202 
level debugger ' Access DOS services TWX: 910-464-4779 FAX: (503) 245-8449 


OREGON SOFTWARE 


Real tools for real work 


AT LAST THE PERFORMANCE !S PORTABLE 


Baa Mcoli ey dine Re leM ects le Cees eRe Clee Pascal-2, Oregon Software, Inc.; IBM, PC-AT, PC-DOS international Business Machines Corporation; Intel, Intel Corporation; 
MS, Microsoft Corp.; TURBO Pascal, Borland International, Inc.; BRIEF, UnderWare Corp.; PDP, VAX, Digital Equipment Corp. 
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OF INTEREST 





Languages 

Computer Crossware Labs has in- 
troduced Real BASIC, a BASIC inter- 
preter for the Atari 520 and 1040 ST 
that executes BASIC code 20 to 100 
times faster than ST BASIC while 
maintaining full compatibility. It 
contains an in-line Motorola-compat- 
ible assembler that allows you to 
switch to assembly language without 
leaving the interpreted BASIC envi- 
ronment and to have full access to 
BASIC variables while in assembly 
mode. Real BASIC’s features include 
an integrated, full-screen editor that 
supports ST BASIC commands and 
some Micro Emacs commands; ex- 
tended graphics instructions; and 
function calls that deal with the 
mouse and joystick ports. Real BASIC 
sells for $69.95. Reader Service No. 16. 
Computer Crossware Labs Inc. 

516 Fifth Ave., Ste. 507 

New York, NY 10036 

(212) 677-3686 


Digitalk has released two optional 
extension kits to accompany Release 
1.2 of Smalltalk/V for PC-DOS ma- 
chines. The first kit integrates full 
EGA color capabilities into the Small- 
talk/V environment, greatly enhanc- 
ing the system’s bit-mapped graph- 
ics. The second kit, called Goodies, 
offers several new programming 
kernels and lets you extend Smalltalk 
to handle applications that require 
discrete event simulation, forward- 
chaining interface operations, and 
connection to external sensors and 
instrumentation. Release 1.2 of 
Smalltalk/V is priced at $99, and up- 
dates to 1.1 can be downloaded from 
CompuServe and BIX or obtained on 
disk from the company for $10. The 
optional extension kits cost $49 each. 
Reader Service No. 17. 
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Digitalk Inc. 

5200 W. Century Blvd. 
Los Angeles, CA 90045 
(213) 645-1082 


Rational Visions is shipping a full- 
featured PROLOG programming sys- 
tem for the Atari ST. The system uses 
the Edinburgh standard syntax, mak- 
ing it compatible with most popular 
tutorials on PROLOG. Features include 
an Emacs-style text editor within the 
system's interpreter that allows you 
to interact with external disk files, 
the internal knowledge base, or in- 
voke PROLOG goals from within the 
editor; a built-in grammar-rule trans- 
lator that allows the development of 
natural-language interfaces; support 
for floating-point values; and extend- 
ed math functions. Also, all PROLOG’s 
metaprogramming primitives have 
been implemented, as have Atari- 
specific features such as GEMDOS pri- 
mitives and interfaces to VDI and AES. 
The system is not copy-protected and 
supports user-written applications 
free of licensing restrictions. The 
package sells for $39.95. Reader Ser- 
vice No. 18. 

Rational Visions 

7111 W. Indian School Rd., Ste. 131 
Phoenix, AZ 85031 

(602) 846-0371 


Datalight has introduced Optimum- 
C, a full-featured global optimizing C 
compiler for IBM PCs and compati- 
bles that supports the Unix System V 
C language along with several pro- 
posed ANSI extensions. Features in- 
clude 8087 and software floating- 
point support, strong type checking, 
ROMable code generation, a MAKE 
program, MS-DOS object files format, 
Lattice C compatibility, and full li- 
brary/start-up source code. Support 
is provided for compact-, small-, me- 
dium-, and large-memory models. 
Source licenses and support con- 
tracts are available for the compiler. 
Optimum-C sells for $139. Reader 
Service No. 19. 

Datalight 

P.O. Box 82441 

Kenmore, WA 98028 

(206) 367-1803 


Tools 
Devpac Amiga, from HiSoft, is a 


68000 program development system 
for the Amiga computer that fea- 
tures a combined editor and assem- 
bler and a symbolic disassembler/de- 
bugger. The full-screen editor can be 
used from either the mouse or from 
the keyboard. The assembler is a 
complete, fast, macro assembler that 
supports include files read from disk, 
conditional assembly, and Motorola- 
standard macro handling and that 
can produce executable or linkable 
code. The debugger includes all the 
expected commands, such as break- 
points and single-stepping, and also 
allows you to use your original sym- 
bols when debugging programs. It 
uses its own screen for its display so 
as not to disturb that of other pro- 
grams. Devpac Amiga is available in 
the United States from Apex Re- 
sources. It runs on any Amiga with at 
least 512K RAM and costs $99.95. 
Reader Service No. 20. 

Apex Resources 

129 Sherman St. 

Cambridge, MA 02140 

(800) 343-7535 

In MA (617) 876-2505 


Numerical Algorithms Group 
(NAG) now offers 172 selected rou- 
tines from its extensive NAG Fortran 
Library for use on workstations and 
personal computers. The NAG For- 
tran Workstation Library provides 
the routines most frequently used by 
engineers and PC programmers. 
Each routine includes an example 
program, the source, and data results 
to illustrate the routine’s usage. The 
NAG Fortran Workstation Library is 
available for the DEC MicroVAXx, IBM 
PC line, and Sun workstations. Li- 
cense fees range from $1,296 for a 
single workstation to $384 each for 11 
or more. Reader Service No. 21. 
Numerical Algorithms Group Inc. 
1101 31st St., Ste. 100 

Downers Grove, IL 60515 

(312) 971-2337 


P-tral, from Woodchuck Indus- 
tries, is a native code BASIC-to-Pascal 
translation package that translates 
IBM BASICA/MS BASIC to Turbo Pascal. 
The program is interactive and lets 
you pick out or name subroutines as 
well as rename variables not fitting 
Pascal criteria. The program works 
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FLOPPY DISK. 
- Fills time between coffee breaks 
- Makes a hard disk seem fast 


- Your computer appears busy 
(even if you aren’t!) 


_- Wears out moving parts 


-...for YOUR demanding tasks. 


SURPRISE! Neither is memory mapped, so they don’t 
affect your precious Main Memory. Both retain data indefi- 
nitely - even with the computer turned off. 


THE SEMIDISK SOLUTION. You could invest in a 
series of “upgrades” that turn out to be expensive band-aids 
without solving your real problem. Even those “Ac- 
celerator” and “Turbo” boards do little to speed up disk- 
bound computers. If your applications spend too much time 
reading and writing to disk (and whose don’t?), you won’t 
want to settle for anything less than a SemiDisk disk 
emulator. The SemiDisk comes in 512K and 2Mb capacity. 
More boards may be added to make up to an 8 Megabyte 
SemiDrive! 

SPEED THAT’S COMPATIBLE. PC, XT or AT, if you 
need speed, the SemiDisk has it. How fast? Recent ben- 
chmarks show the SemiDisk is from 2 to 5 times faster than 
hard disks, and from 25% faster (writing) to several times 
faster (random reads) than VDISK and other RAMdisk 
software that gobble up your main memory. 

MEMORY THAT’S STORAGE. Using our small exter- 
nal power supply, with battery backup, your data remains 
intact through your longest vacation or even a seven-hour 
power failure! 





the better fit... 





tae SOT Aree , | 
SEMIDISK Disk Emulator. _ 
- Gets that job done NOW 

- Makes a hard disk seem slow 


- Maximizes your productivity 
with anything from databases _ 
to compilers - 

- Totally silent operation 





CELEBRATE WITH US! Now, SemiDisk celebrates its 
fifth birthday with a special offer for IBM-PC owners. Buy 
a SemiDisk now and we’ll include an 8 MHz V-20 micro- 
processor (replaces the 8088) to make your new SemiDisk 
run even faster. Don’t need the V-20? We’ll take $20 off 
the price of your Battery Backup Unit! 


512K 2Mbyte 
IBM, PC, XT, AT $495 $ 795 
Epson QX-10 $495 $ 995 
S-100 SemiDisk II $795 $1295 
S-100 SemiDisk I $299  wwnnnn anna ene 
TRS-80 II, 12, 16 $495 $ 995 
Battery Backup $130 $ 130 


Someday you’ll get a SemiDisk. 
Until then, you’ll just have to...wait. 


SemiDisk 


SemiDisk Systems, Inc., 11080 S.W. Allen Blvd., Beaverton, Oregon 97005 (503) 626-3104 
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OF INTEREST 
(continued from page 132) 


best with a hard disk and requires 
MS-DOS or PC-DOS 2.1 or later with AN- 
SLSYS. P-tral sells for $179. Reader Ser- 
vice No. 22. 

Woodchuck Industries Inc. 

340 W. 17th St., #2B 

New York, NY 10011 

(212) 924-0576 


RTC Plus, a FORTRAN- and RATFOR-to- 
C translator package from Cobalt 
Blue, allows you to tap old FORTRAN 
code for new C development. The 
translator is designed for translating 
non-I/O FORTRAN libraries and code 
in which I/O is concentrated in a few 
routines. Also, more than 95 percent 
of STUG’s RATFOR statements are sup- 
ported by RTC Plus for complete 
translations of clean’ RATFOR code. 
RTC Plus runs under MS-DOS, Version 
2.2 or later and costs $325. Reader 
Service No. 23. 

Colbalt Blue 

1683 Milroy, Ste. 101 

San Jose, CA 95124 

(408) 723-0474 


TurboPower Software has re- 
leased an upgrade to T-DebugPLUS, a 
symbolic run-time debugger for Tur- 
bo Pascal. The new version (1.04) al- 
lows Turbo Pascal programmers to 
debug code in overlays and access 
CPU registers and memory. Other im- 
provements include easier customi- 
zation of the debugger and a new 
MAKELST utility program that creates 
a commented disassembly listing of 
Turbo Pascal programs. T-DebugPLUS 
requires Turbo Pascal 3.0 and a PC- 
DOS machine with 256K RAM. It sells 
for $60 ($10 for upgrade). Reader Ser- 
vice No. 24. 

TurboPower Software 

3109 Scotts Valley Dr., Ste. 122 

Scotts Valley, CA 95066 

(408) 438-8608 


Laney Systems has released StruBAS 
2.0, a structured BASIC toolkit for ap- 
plication development with Quick- 
BASIC and IBM BASIC 2.0 compilers in 
network and single-user environ- 
ments. Integrated tools include en- 
hanced structured programming fa- 
cilities, screen handling, a Btrieve 
interface, StruBAS/ISAM for those not 
wishing to buy Btrieve, an object li- 
brary of utility subroutines, and utili- 
ty programs. A preprocessor ex- 
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pands BASIC with new commands to 


produce a more readable and struc- 
tured language while making all BA- 
SIC’s features and constructs avail- 
able as well. StruBAS programs are 
translated by the preprocessor to 
compilable BASIC, which is then com- 
piled and linked to produce execut- 
able programs. StruBAS is not copy- 
protected, and no royalties are 
charged for programs written using 
the package. It requires a PC-DOS ma- 
chine with 320K RAM and a hard disk 
and sells for $495. Reader Service No. 
25. 

Laney Systems Inc. 

3 Office Park Dr., Ste. 105 

Little Rock, AR 72211 

(501) 225-7755 


BASIC Program Analyzer, from the 
Expert Systems Division of Expert 
Information Systems, is a rule- 
based system that reads Microsoft's 
GW-BASIC program files in ASCII for- 
mat and performs analysis, listing, 
and cross-reference functions upon 
them. The analyzer prints individ- 
ually tabulated cross-references of 
line numbers, variables, keywords, 
quoted strings, and numerical con- 
stants found in theograms. Error, 
warning, and comment messages are 
inserted where applicable into tabu- 
lated cross-references, and an ASCII 
file is produced of all portions of the 
printout, including the cross-refer- 
ences. Optional parameters can be 
used to modify some of the analyz- 
er’s operations, such as testing for 
compiler syntax compatibility and 
for redirecting output. BASIC Pro- 
gram Analyzer is available for most 
MS-DOS computers and costs $99.95. 
Reader Service No. 26. 

Expert Information Systems Inc. 
Expert Systems Division 

P.O. Box 1310 

El Campo, TX 77437-1310 

(409) 543-9222 


Libraries 

United States Software Corp. has 
released a 68HC11 floating-point li- 
brary. This complete math package 
operates on the 68HC11, is designed 
in a modular format, and is delivered 
in source assembly language for 
maximum flexibility. The library 
conforms to the IEEE 754 Floating 
Point Standard. The 68HC11 FPAC/ 


DPAC is available in either single-pre- 
cision or double-precision formats. 
The library includes trigonometric, 
logarithmic, and exponentiation 
functions, and data-conversion and 
floating-point utility procedures. It is 
available on IBM PC-compatible me- 
dia for a one-time fee of $950. Reader 
Service No. 27. 

United States Software Corp. 

14215 N.W. Science Park Dr. 
Portland, OR 97229 

(503) 641-8446 


LINLIB, from Information and 
Graphic Systems, is a library of C 
routines for developers of scientific 
and statistical software. The package 
performs all basic operations on vec- 
tors and matrices, with no limitation 
on size of vector or matrix. Of major 
importance are the routines that fac- 
tor matrices (LU, OR, and Cholseky 
factors). These factorizations enable 
you to solve any kind of system equa- 
tions—underdetermined, deter- 
mined, and overdetermined. Also in- 
cluded in LINLIB are routines based 
on the B-spline for manipulating 
splines. LINLIB sells for $150. Reader 
Service No. 28. 

Information and Graphic Systems 

15 Normandy Ct. 

Atlanta, GA 30324 

(404) 231-9582 


DDJ 
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Real programmers don't use dBASE. Or do they? 

Were finding that some very swift programmers are using it to 
write some very fast applications, 
and are completing their 
projects much more quickly. 


With dBASE used like 


But they cheat. 

They use our Clipper™ 
compiler to combine dBASE™ 
with C and assembler. 


= Nantucket. 


© Nantucket Corporation 1987 Clipper is a trademark of Nantucket Corporation; dBASE isn't. 


pseudo-code, they can then quickly create 
prototypes that actually run. 

Then, with dBASE doing the high-level database functions, 
they use our Clipper compiler to link in C or assembly language 
modules from their own bag of tricks. 

And theyre finding that they're linking in less than they 
expected because Clipper compiled code runs so fast and 
because of Clipper's built-in enhancements. 

Clipper includes easy networking that provides file and 
record locking the way it should be done. 

Fast screens that can be treated as memory variables and 
eliminate the need for direct screen writes and all that tortuous 
heap management code. oe 

Box commands that make 
windowing a breeze. And more. 

So if youd like to use your time 
more productively, check us out: 
Nantucket Corporation, 

12555 W. Jefferson Boulevard, 
Los Angeles, CA 90066. 

Or if youre on deadline, call 
(213) 390-7923 today. 

Clipper could get you out of 
the soup. 





In Europe: Nantucket Corporation (Europe) 2 Bluecoats Avenue, Fore Street, Hertford, Herts SG14 1PB Telephone 0992 554621. 
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FORUM 


SWAINE’S FLAMES 





think I may be the first person 
who has ever actually seen a com- 
puter bug. 

It came to me at the end of a long 
and disillusioning night when my 
body, no doubt in sympathy with the 
new punitive tariffs on Japanese 
goods, began rejecting a dinner of 
overripe sushi. En route from bath- 
room to loft, I heard an odd tapping 
sound from the office and stopped to 
investigate. 

In my collywobbled state I had ne- 
glected to turn off the Macintosh, 
and what I saw in the glow from the 
screen was a bug—it looked a lot like 
a cockroach—repeatedly climbing to 
the top of the Mac and leaping to the 
keyboard to enter a character. The 
exertion must have been tremen- 
dous, and he looked pretty beat 
when he finally finished and 
crawled into the disk drive. I’m not 
surprised he didn't bother with capi- 
talization or punctuation (the bottom 
row of keys was almost too long a 
jump for him). 

He left this behind. 


boss i m afraid that 

the computer curmudgeon john 
dvorak has been talking 

about our beloved dr dobb s journal 
of whatever again 

if dr. dobb s became 

outspoken it would be 
dangerous dvorak said in one of 
those tasty magazines you 

leave lying around this office i 
wish you would leave a 

crust of bread i m getting tired 


of paper and glue 


i wonder does he mean 

like that 1940s science fiction 

writer was dangerous 

when he explained how 

an a bomb would work or like the 
white house press corps would be 
dangerous if it decided it 

wasn t the white house s press corps 
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or like sesame street would be 
dangerous if it taught children to 
question their teachers 

and their parents 

or maybe like infoworld was 
dangerous when it was 
publishing dvorak 


sometimes i think that john 
dvorak is a modeless 

dialog box the max 
headroom of the 

personal computer industry 


how could dr dobb s become 
dangerous is what i 

d like to know 

maybe by examining legislator s 
voting records on software 
issues or by doing a study of 
compiler pricing vs value or by 
publishing detailed specs on 
data formats of 

commercial products so that data 
held hostage by obsolete 
applications could be liberated 
or by showing how to develop 
software for the 386 

without waiting for you 

know who or by questioning 

the need for an operating system 
on a personal computer at all 


i used your modem to 

call dvorak s number and talked 
with his dog 

sparky maybe dr dobb s should 
list the companies 

that preannounce products to 
outflank their competitors 
sparky suggested 

or do their beta testing in 


release version one point oh 
or cripple their products with 
copy protection tricks 

or refuse to eliminate 

known bugs what s this about 
bugs i asked him but 

he just barked 


one thing i know is that dr 

dobb s could stand to 

be a little more rough and 
tumble a bit more capricious and 
corybantic theresa 

dance in the old dame yet 

and if that s dangerous it s 

fine by me please save 

this file as ican t work 

the mouse nor would i want toi 
haven t always had the best of 
relations with mice yours archy 


Scarab journalism was invented by 
Don Marquis, a New York Sun colum- 
nist, when he found a cockroach 
composing in his office late one night 
some seventy years ago, learned that 
the bug was a reincarnated vers libre 
poet, and cannily conned the poet 
roach into meeting copy deadlines 
for him for the next ten years. 

The saga of archie the cockroach 
itself allegedly owes its existence to 
the newspaper account of a type- 
writing rat who plied his or her art 
by night circa 1916 in a Dobb's Ferry, 
New York, garage. By some odd sym- 
metry in the transmigration of souls, 
a Dobb has once again played host to 
verse vermin. 

Fine by me. 


UW boD Sorabss 


Michael Swaine 
editor-in-chief 
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You’d Be Surprised Uses 


Essential Graphics Functions 


And some of our well-known customers would be just as 
surprised if they saw themselves in this ad. We don’t splash 
their names all over the place as a matter of professional 

~ courtesy. 


Let’s face it. Just because someone else uses a product is 
not reason enough to buy it. The clincher is that our 
programs run a documented 40% faster than the closest 
competitor. To complete the picture, our code is up to 
75% smaller due to efficient coding 

and the granularity 
of functions. 


However, should 
curiosity get the best 
of you, call us at 
201-762-6965 and 
we'll drop a few 
highly impressive 
names on you. ue 
Behind every 

great program is a great library. 


Draw Your Own Conclusions 


When your're responsible for a project that includes 
advanced graphics, “graphics windowing; or character 
font manipulation, Essential Graphics is the clear choice. 
We’ve taken the grind out of graphics programming and 
replaced it with speed and versatility. 


No Royalties, 30 Day Guarantee 


We believe that selling you a programming tool does not 
make us your co-authors. So we don’t charge any royalties 
or run time fees. If within 30 days you don’t find our 
library satisfactory, dump the whole thing and receive a 
complete refund. 





Functions At A Glance 


Features: Graphics Adapters: 
e Fastest functions available IBM Color Graphics 
Dots, Lines, Circles, Arcs, IBM Enhanced Graphics 


Manipulate character fonts 
Move blocks, do animation Tecmar Graphics Master 
User definable patterns Others (Call) 
Seed filling in a boundary Compiler Compatibility: 
Clipping on screen © Microsoft, C, Fortran, 
coordinates Pascal 

Devices Supported: © Lattice C, Aztec C 

e IBM, Epson, Oki printers e Computer Innovations 

e HP Plotters, HP Laser Jet C86, DeSmet C 

e Microsoft, Logitech Mice @ Wizard C, Mark Williams 


$250.00 


AT&T, Olivetti Graphics 


e 
6 
Pies, Bars e Hercules Graphics 
e 
e 
6 


Do Your Homework 
The library you buy can influence the rest of your 
programming life. We encourage you to do some checking 
before making a decision. When you’ve done your home- 
work, you'll choose Essential. Call our support staff of 
experienced C programmers and find out before you buy 
how things will be after your check clears. 


— To order or for support 
call: 201-762-6965 


aa For foreign orders contact: 
England: Gray Matter Tel. (0364) 53499 
Japan: Lifeboat Inc. of Japan Tel: 293 4711 

West Germany: Omnitex Tel. 07623-61820 


Essential Software, Inc. 
PO. Box 1003, Maplewood, New Jersey 07040 
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— 
Now you can speed up your | | 
worrying about data safety. Our FaST10 has a self contained 
high speed clock that speeds up math coprocessor operations 
without jeopardizing accuracy. 

The FaST10 accelerates programs including 1-2-3, 
Framework, AutoCAD and Symphony (to name just a 
few)—by as much as 250%! 

Our FaST10 is compatible with: 6 or 8 MHz IBM PC/ 
ATs, the Compag DeskPRO 386 and all 286-based PC’ 


like the Compaq DeskPRO 286 & Portable 286. 


We have all the Coprocessors you need! 
FaST modules, which operate at We speed, for the PC/AT, 
[A 


Compag DeskPRO 386 and PC/AT compatibles: 

287 FaST 10—full speed 1OMHz ...................... $469 
287 Fast $—{ull speed 8 MHz ........................ $379 
287 FaST 6—full speed 6 MHz ........................ $249 
Math coprocessors for AT com- 

patibles and accelerator cards: 

287-10 Chip ............... $439 

fa, 8 Chip ............... $349 

m6 Chip ............ $219 


Math coprocessors for PC/XTs 
& higher speed compatibles: 

87 Chip—4.77 MHz ... $129 
87-2 Chip—8 MHz. ..... $195 





your math calculations without 











early retirem 
avd! Hauppauge has a smart % 
give your IBM PC or XT the 
















and site oe a) the 60386. 

Its our 386 MotherBoard. With 
a 32-bit, 16 MHz 80386 processor 
and 1 Mbyte of high speed memory, 
it scores high on desktop publishing, 
CAD graphics, engineering and 
business applications. 386 Mother- 
Board is a motherboard replace- 
ment that's 100% form fitting. So 
installation takes just 20 minutes. . 

To accept new generations 0 
DOS, we gave it PC/AT BIOS, 
I/O compatibility and up to 16 Mbytes of high speed expan- 
sion RAM. 

And our 386 MotherBoard has a lot more on the ball 
than simple accelerator cards. Because in addition to speed, 
it has a 16 bit expansion slot. Plus a 32 bit slot for high  - 
speed memory expansion. There's also a 387 math coproces- 
sor socket for the ultimate in high 
speed math calculations, and a 
clock/calendar with battery backup 
for true PC/AT compatibility. 


386 MotherBoard also comes 
with very intelligent prices: 
386 MotherBoard/PC ..... $1495 
386 MotherBoard/XT ..... $1495 
387 Math coprocessor ..... $695 


Hauppauge 


Your math coprocessor specialists 


Hauppauge Computer Works, Inc. 
358 Veterans Memorial Highway, 


Commack, N.Y. 11725 
Phone: 516-360-3827 







































